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РВЕЕАСЕ 





This manual contains (ће source listing Гог version 1.1 of both the Кеурад апа serial 
monitor programs. Two listings are provided for each monitor program; a PL/M-86 
source listing and an expanded source listing containing the assembly language 
equivalent of each PL/M instruction. 





| SDK-86 KEYPAD MONITOR 
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РЬ/М-86 COMPILER 50К86 KEYPAD MONITOR РАЛЕ 


ISIS-II PL/M-86 V1.0 COMPILATION OF MODULE MONITOR 
OBJECT MODULE PLACED IN :F1:KEYPAD.OBJ 
COMPILER INVOKED BY: :F2:PLM86 :F1:KEYPAD.PLM LARGE ОРТІМІ2Е(2) 


$TITLE(*SDK86 KEYPAD MONITOR’) 
і ЗМОІМТУЄСТОВ 


/* 00808020208480998283406099908980:080 89804884480844888:9409208945:0(0894980808929440930928 
0Г809202848232288290448080480408084:9308080880882808000800520:080880023899:0899480844602 900808 


50К-86 КЕҮРАР МОМІТОВ, V1.1 
30 JUNE 1978 


(C) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART OF 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 


ABSTRACT 
| THIS PROGRAM IS THE ROM BASED KEYPAD MONITOR FOR THE 50К-86. 
w IT PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 


EXAMINIE/MODIFY MEMORY AND REGISTERS AND CONTROL PROGRAM EXECUTION. 


ENVIRONMENT 


THE SDK KEYPAD MONITOR COMMUNICATES WITH THE USER VIA THE ONBOARD 
KEYBOARD AND 7 SEGMENT DISPLAY. 


PROGRAM ORGANIZATION 


THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 


1. DATA DECLARATION MODULE, GLOBAL DATA DECLARATIONS, 
2. COMMON ROUTINES. LOWER LEVEL PROCEDURES 
3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 


ç CALLING GRAPH 


>>COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN A 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 

AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 

POINTERS TO THE 50К-86 29920 ADDRESS SPACE ARE IMPLEMENTED WITH 
POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 
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./ 


1 MONITOR:DO; 


/9 BEGINNING OF MODULE Ф/ 


/9 побоев оно ооо ооо ооо оо ооо оон ооо ооо ооо ооо ааа а ааа а ааа 
0101002072 022000 2 02 000 010200 00 00 0 00 008 0 080080 208200 0808 000 0608 0 002000 00002 0020 


GLOBAL DATA DECLARATIONS MODULE 


ABSTRACT 


THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 


LITERALS (EQUATES). 


MODULE ORGAINIZATION 


2222:2:22:22:222:2:222з3222 


THE MODULE IS DIVIDED INTO 5 SECTIONS: 
GLOBAL FLAGS, VARIBLES, EQUATES 
I/O PORTS,MASKS,AND SPECIAL CHARS 


1, UTILITY SECTIO 
2. 1/0 SECTION 


3. MEMORY ARGUMENTS SECTIONS 


Ч, REGISTER SECTION 


5. BOOT AND 8089: 
9/ 


/8888989990989898849924 
е UTILITY SECTION 


SECTION 


STRUCTURES FOR MEDIUM POINTERS 


USER REGISTER SAVE AREA 
BOOTSTRAP AND 8089 DESCRIPTOR 


зозоросврозвововововево / 

2 1 DECLARE 
INTSVECTOR(5) POINTER; 

3 1 DECLARE 
MONITORS$STACKPTR WORD, 
MONITORSSTACKBASE WORD; 

4 1 DECLARE 
СОРУЯТОНТ (?) BYTE DATA ('(С) 

9 1 DECLARE 
BRKI$FLAG BYTE, 
BRKI$SAVE BYTE, 
CHAR BYTE, 
DISP(4) BYTE, 
T BYTE, 
END$OF F WORD, 
WORD$MODE BYTE, 
LAST$COMMAND BYTE; 

6 1 DECLARE 
TRUE LITERALLY "ОЕРН", 
FALSE LITERALLY ‘OOOH’, 
ADORS$FIELD LITERALLY "1", 
DATASFIELD LITERALLY "0", 
ОАТАЗВУТЕ LITERALLY '-1', 
BLANK LITERALLY "1", 
NOBLANK LITERALLY "0", 
BREAKS$INST LITERALLY "ОССН?, 
STEP$TRAP LITERALLY "0100Н", 
USER$SINIT$SP LITERALLY "100Н", 


1978 INTEL 


/% 


/% 


INTERRUPT VECTORS %/ 


MONITOR SS SAVE ?/ 


СОДР"); 


/% 
/® 
/% 
/% 


ТВОЄ ІР ВВЕАК 5ЕТ ?/ 
INST BREAK SAVE %/ 

ONE CHAR LOOK AHEAD "/ 
DISPLAY ARRAY %/ 


/% END OFFSET ADDRESS %/ 


ADDR FIELD WORD OUTPUT #/ 
DATA FIELD WORD OUTPUT %/ 
DATA FIELD BYTE OUTPUT %/ 


BREAKPOINT TRAP ®/ 
SS TRAP FLAG MASK %/ 
USER STACK INITIAL %/ 
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NM WWW ка) Г fo 


/а 9044088880890889409490900088888988984980898809988498209898928084608088488208080848204088084 
100 002000 EER REE EER ERE REE EER ооо ооо во вз ватт еее RR зао егете аа 


COMMON PROCEDURES 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHE# 
LEVEL ROUTINES. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 
1. BASIC I/O SECTION 


KB$DISPLAY DISPLAY TO LED FIELDS 
KB$BLANK$DATA$FIELD BLANK DATA FIELD WITH PROMPTS 
KBSBLANK$ADDR$FIELD BLANK ADDRESS FIELD WITH PROMPTS 
КВУООТЗВҮТЕ OUTPUT А BYTE ТО DISPLAY 
KBSOUT$WORD OUTPUT A WORD TO DISPLAY 
KB$GET$CHAR INPUT A CHAR FROM KEYPAD 

2. ARGUMENT EXPRESSION EVALUATOR 
КВЗСЕТЗЕХРН GET WORD EXPRESSION 
KB$GET$ADDR GET ADDRESS EXPRESSION 
КВФОРОАТЕФІР GET OPTIONAL CS:IP 

3. INTERRRUPT AND RESTORE/EXECUTE ROUTINES 
SAVE$REGISTERS SAVES USERS REGISTERS 
RESTORE$EXECUTE RESTORE MACHINE STATE AND EXEC 
INTERRUPRI$SENTRY INTERRUPT FOR SINGLE STEP 
INITERRUPT3$ENTRY INTERRUPT ROUTINE FOR GO 
INIT$INT$VECTOR INITIALIZES INTERRRUPT VECTORS 


#/ 


1% 00000 ово ава оваа но» 


• BASIC І/О SECTION ы 
ооо о ооо сссововонае / 


KB$DISPLAY: 

/а THIS ROUTINE DISPLAYS THE CONTENTS OF THE ARRAY POINTED TO BY 
THE FIRST PARM TO THE FIELD SPECIFIED BY THE SECOND (ADDR OR 
DATA). THE NUMBER OF DECIMAL POINTS OR PROMPTS IS DETERMINED 
BY THE THIRD PARAMETER #/ 

PROCEDURE (PTR,FIELD, PROMPTS); 

DECLARE PTR POINTER, (FIELD,PROMPTS,T) BYTE, 
DISPLAY BASED PTR (1) BYTE; 
ТЕ FIEUD=ADDR$FIELD THEN 
OUTPUT(KB$STAT$PORT) = 94H; 79 ADDRESS FIELD %/ 
ELSE 
OUTPUT(KB$STAT$PORT) 
DO 1-0 TO 3; 
Т = DISPLAY(3-I); /® DISPLAY ЗАСКИАРСО! 


90H; /% DATA FIELD %/ 


IF PROMPTS>I THEN Т = т OR 80H; 
OUTPUT(KB$DATA$PORT) = Т; 
END; 
END; 


KB$BLANK$DATA$FIELD: 


е; 
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/9 THIS ROUTINE BLANKS THE DATA FIELD OF THE DISPLAY WITH THE 

NUMBER OF PROMPTS (DECIMAL POINTS) AS SPECIFIED BY THE PARAMETER. #/ 
PROCEDURE( PROMPTS); 

DECLARE PROMPTS BYTE; 

CALL KBS$SDISPLAY( ОКВЗВГАНКО, DATA$FIELD, PROMPTS); 
END; 


KBSBLANK$ADDRSFIELD: 
/9 THIS PROCEDURE BLANKS THE ADDRESS FIELD OF THE DISPALY WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE PARAMETER "РВОМРТ5", ®/ 
PROCEDURE( PROMPTS); 
DECLARE PROMPTS BYTE; 
CALL KB$DISPLAY( @KBSBLANKS, ADDR$FIELD, PROMPTS); 
END; 


KBSOUT$BYTE: 

/® THIS ROUTINE OUTPUTS THE BYTE INPUT FROM THE FIRST PARAMETER 
TO THE DATA FIELD WITH THE NUMBER OF PROMPTS SPECIFIED BY THE 
SECOND PARAMETER. ?/ 

PROCEDURE(B, PROMPTS); 

DECLARE (B,PROMPTS) BYTE; 
DISP(0),DISP(1) з O; /% FIRST TWO BLANK %/ 
DISP(2) = LED(SHR(B,4) AND OFH); 
DISP(3) = LED(B AND ОЕН); 
CALL KB$DISPLAY( @DISP,DATA$FIELD,PROMPTS); 
END; 


KBSOUT$WORD: 
/9 THIS ROUTINE OUTPUTS THE FIRST PARM TO THE FIELD SPECIFIED 
BY THE SECOND WITH THE NUMBER OF PROMPTS SPECIFIED BY THE THIRD. 
LEADING ZERO BLANKING IS PERFORMED IF SPECIFIED BY THE FOURTH 
PARAMETER. */ 
PROCEDURE(W,FIELD, PROMPTS, BLANKING) ; 
DECLARE W WORD, (FIELD,PROMPTS,BLANKING) BYTE; 


DO 120 TO 3; 
DISP(I) = ЕР(5НК(М,(3-1)94) AND ОООЕН); 

END; 

IF BLANKING=BLANK THEN /% BLANK LEADING 0'5 9/ 
00; 
I з O: 


, 
DO WHILE DISP(I)=3FH AND І<3; 
DISP(I) г O; 


I = Із 15 
END; 
END; 
CALL KB$DISPLAY(@DISP,FIELD,PROMPTS); 
END; 
KB$GET$CHAR: 


/% READS ONE CHARACTER FROM THE FIFO ОР THE 8279, WAITS UNTIL 
CHARACTER IS AVAILABLE AND THEN RETURNS THE CHARACTER IN GLOBAL 
VARIABLE ‘CHAR’, 9/ 

PROCEDURE; 

DO WHILE (INPUT(KB$STATS$PORT) AND KBSINRDY)=0; END; 
ОПТРИТ ( КВЗЗТАТЗРОВТ) = ОЦОН; /® ENABLE ТМРОТ DATA ?/ 
CHAR = ТМРЏТ(КВЗОАТАЗРОВНТ); /% READ CHARACTER %/ 

ЕНО; 


PL/M-86 COMPILER 


SDK86 KEYPAD MONITOR | РАСЕ 
СОФСОММАНО LITERALLY "2", /% GO COMMAND CODE #/ 
SS$COMMAND LITERALLY "3", 


1% 20200 00000 ваа ава ааа аа ааа 


Ы 1/0 DECLARATIONS SECTION 9 
98899899080994089999090000909808/ 


7 1 DECLARE 
KB$STAT$PORT LITERALLY ‘OFFEAH', /% STATUS/COMMAND PORT %/ 
КВУПрАТАРОНТ LITERALLY "ОРЕЕ8Н", /9 DATA PORT #/ 
KB$INIT$MODE LITERALLY "ООН?, /% 8 8-ВІТ, LEFT ENTRY, 
< ENCODE, 2 KEY LOCKOUT #/ 
KB$INIT$SCAN LITERALLY "ЗЭН", /% 10MS SCAN RATE #/ 
KB$INRDY LITERALLY "ОТН?, из IN CHAR НОТ MASK #/ 
KB$CMND$PMT(®) BYTE DATA (40H,00H,00H,00H), /® "- то жу 
KB$SIGNON( ®) BYTE DATA (40H,00H,7FH,7DH), /% "- 86" %/ 
KB$VERSION( є) BYTE DATA (00H,00H,86H,06H), /% ' 1,1" 9/ 
KB$REGS$PMT( 9) BYTE DATA (50H,00H,00H,00H), /% "В ' 8/ 
KBSERR$MSG( 9) BYTE DATA (40H,79H,50H,50H), /% "-ЕНН" ®/ 
КВЗЕХЕС( ®) BYTE DATA (79Н,00Н,00Н,00Н), /® "Е "жу 
КВЗВАК (2) BYTE DATA (7СН,50Н,00Н,00Н), / "ВВ ' •/ 
KB$BLANKS( ®) BYTE DATA (00H,00H,00H,00H), /9 ' © жу 
LED(®) BYTE DATA 
(3FH,06H,5BH,4FH,66H,6DH,7DH,07H, ге IO tae Te жу 
ТЕН,бЕН,77Н,7СН,39Н,5ЕН,79Н,71Н); ие "В: "Е" 9/ 
8 1 DECLARE 
KBPER LITERALLY '108', /% PERIOD ./ 
КВСОМ LITERALLY '11Н', /% СОММА е / 
KBREGKEY LITERALLY ‘15H’, /% REGISTER KEY 9 / 
KBCOL LITERALLY  "14Н", /9 COLON (SEGMENT) #/ 
KBPLUS LITERALLY '13Н', /% PLUS KEY е 
KBMINUS LITERALLY ‘'12H'; /% MINUS KEY е/ 


1% 200000000000 000000000 


е POINTER SECTION ы 
9009099090908990909098900/ 


Э 1 DECLARE 


MEMORYS$ARGI$PTR POINTER, /% ARGUMENT 1 %/ 
АКО! STRUCTURE (OFF WORD, SEG WORD) 
АТ (@MEMORYSARGI$PTR), 
MEMORY$ARG1 BASED MEMORY$ARGI$PTR BYTE, 
MEMORY$WORD$ARG1 BASED MEMORY$ARGI$PTR WORD, 


MEMORYS$ARG3$PTR POINTER, /% ARGUMENT 3 %/ 
ARG3 STRUCTURE (OFF WORD, SEG WORD) 

АТ (@MEMORYS$ARG3$PTR), 
MEMORY$ARG3 BASED MEMORY$ARG3$PTR BYTE, 


MEMORY$BRKI$PTR POINTER, /® BREAKPOINT */ 
ВЕК! STRUCTURE (OFF WORD, SEG WORD) 

АТ (@МЕМОВУЗВАКТЗРТЯ), 
MEMORY$BRK1 BASED MEMORY$BRKI$PTR BYTE, 


MEMORY$CSIP$PTR POINTER, /% CS:IP INSTRUCTION %/ 
CSIP STRUCTURE (OFF WORD, SEG WORD) 
AT (@MEMORYS$CSIP$PTR), 
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MEMORYS$CSIP BASED MEMORYS$CSIP$PTR BYTE, 


MEMORYSUSERSTACK$PTR POINTER, 

USERSTACK STRUCTURE (OFF WORD, SEG WORD) 
АТ (@MEMORY$USERSTACKS$PTR), 

MEMORY$USERSTACK BASED MEMORYSUSERSTACKS$PTR WORD; 


79 USER'S STACK #/ 


1% 220200 0002002 аа ва ваа аа 


ы REGISTER SECTION Ы 
аагававаааова даваа ваа / 


а DECLARE 
КВЗЯЕС( в) ВТТЕ DATA 
(00Н,77Н,О00Н,7СН,0ОН,З39Н,00Н,5ЕН, /9 AXBXCXDX %/ 
60Н,73Н,7СН,73Н,60Н,30Н,5ЕН,30Н, /8 SPBPSIDI %/ 
39H,6DH,5EH,6DH,6DH,6DH,79H,6DH, /% CSDSSSES %/ 
30H,73H,71H, 38H), /% ТРЕ ./ 
REG$SAV(14) WORD, /9 USER'S SAVED АЕСЗ #/ 
REGS$ORD(®) BYTE DATA 
(% 8,43 3 0 0.9 11 39.8 135, /® STACKED REG ORDER %/ 
SP LITERALLY 'REGS$SAV( 4)", 
BP LITERALLY 'REG$SAV( 5)", 
cs LITERALLY 'REG$SAV( 8)', 
DS LITERALLY 'REG$SAV( 9)', 
55 LITERALLY 'ВЕСЗЗАЧ( 10)", 
Е5 LITERALLY " ВЕСЗЗАТ( 11)", 
ТР LITERALLY " ВЕСЗАТ( 12)", 
FL LITERALLY 'REG$SAV(13)'; 
/ + 20202 20000020000 00 00 ваа аа ааа ааа 
® BOOTSTRAP JUMP AND 8089 VECTOR * 
0122200200 02 000 20000 00000 060000 аа ааа ааа / 
/® THIS BOOT CONSISTS OF A LONG JUMP TO THE BEGINNING OF THE MONITOR 
АТ РРОО+ХХХХ WHERE XXXX IS THE STARTING ADDRESS OFFSET (IP) AND 
MUST BE DETERMINED AFTER EACH COMPILE. Ф/ 
їз. 4 DECLARE 
START$ADDR LITERALLY "009СН", /9 STARTING ADDRESS %/ 
ВООТ1(9) BYTE АТ (ОРЕРРОН) РАТА (ОВАН), /% LONG JUMP ОРСОРЕ #/ 
во0т2(#) WORD АТ (ОРРРЕТН) DATA (STARTS$ADDR), 
BOOT3(®) WORD AT (OFFFF3H) DATA (OFFOOH); /® SEGMENT ADDRESS %/ 
/9 THIS TWO-WORD DATA IS A JUMP TO THE STARTING ADDRESS AND IS LOCATED 
AT THE FIRST LOCATION OF ROM (NO OTHER DATA OR CONSTANT DECLARATIONS 
MAY PRECEDE ІТ). THE JUMP IS ACTUALLY TO (START-ADDR)-4 SINCE THE 
INSTRUCTION IS A RELATIVE JUMP OF LENGTH 3. Ф/ 
2 1 DECLARE 
800Т8(9) WORD РАТА (OE99O0H,START$ADDR-u); /% МОР,ЈМР START-ADDR */ 
/9 THIS BLOCK. OF ROM AT FFFF6-FFFPA IS INITIALIZED FOR THE 8089 
DEVICE AND POINTS TO A BLOCK OF RAM AT LOCATION 100H. #/ 
13 + DECLARE 
BLOCK$8089 WORD AT (OFFFF6H) DATA (00001H), 
BLOCK$8089$PTR POINTER AT (OFFFF8H) DATA (00100H); 


к: 
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/б 898484989898889980999890889280992090928989380990282930234892808099808892049489020898808809 
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COMMON PROCEDURES 
222222222222222=22= 


ABSTRACT 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 
LEVEL ROUTINES. 


MODULE ORGANIZATION 

22222222222222222=2 

THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 
1. BASIC I/O SECTION 


KB$DISPLAY DISPLAY TO LED FIELDS 
KB$BLANK$DATA$FIELD BLANK DATA FIELD WITH PROMPTS 
KB$BLANK$ADDR$FIELD BLANK ADDRESS FIELD WITH PROMPTS 
KB$OUT$BYTE OUTPUT A BYTE TO DISPLAY 
KBSOUTSWORD OUTPUT A WORD TO DISPLAY 
КВЗСЕТЗСНАЯ INPUT A CHAR FROM KEYPAD 

2. ARGUMENT EXPRESSION EVALUATOR 
KB$GET$EXPR GET WORD EXPRESSION 
KB$GET$ADDR GET ADDRESS EXPRESSION 
KB$UPDATE$IP GET OPTIONAL С5:ТР 

З, INTERRRUPT AND RESTORE/EXECUTE ROUTINES 
SAVE$REGISTERS SAVES USERS REGISTERS 
ВЕЗТОВЕЗЕХЕСЏТЕ RESTORE MACHINE STATE AND ЕХЕС 
INTERRUPRI$SENTRY INTERRUPT FOR SINGLE STEP 
INITERRUPT3$ENTRY INTERRUPT ROUTINE FOR GO 
ТНТТЗТНТЗУЕСТОН INITIALIZES INTERRRUPT VECTORS 


9/ 


/ФФееегеегееегевеееееееееегге 


е BASIC I/O SECTION е 
999080980899999909990980488/ 


14 1 КВУОТЗРЬАҮ: 
/% THIS ROUTINE DISPLAYS THE CONTENTS OF THE ARRAY POINTED ТО BY 
THE FIRST PARM TO THE FIELD SPECIFIED BY THE SECOND (ADDR OR 
DATA). THE NUMBER OF DECIMAL POINTS OR PROMPTS IS DETERMINED 
BY THE THIRD PARAMETER %/ 
PROCEDURE (PTR,FIELD, PROMPTS); 
19 2 DECLARE PTR POINTER, (FIELD,PROMPTS,T) BYTE, 
DISPLAY BASED PTR (1) BYTE; 


16 2 ТЕ FIEUDsADDR$FIELD THEN 
17 2 OUTPUT(KB$STAT$PORT) = 94H; и? ADDRESS FIELD %/ 
ELSE 
18 2 ОЏТРОТ(КВЗ5ТАТЗРОВТ) = 90H; /% DATA FIELD ®/ 
19 2 00 1-0 TO 3; 
20 3 T = DISPLAY(3-I); /® DISPLAY SACKWAPTS! 
21 3 IF PROMPTS>I THEN Т = т OR ВОН; 
23 3 OUTPUT(KB$DATA$PORT) = T; 
24 3 END; 
25 2 END; 


25 1 KB$BLANK$DATA$FIELD: 
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/* THIS ROUTINE BLANKS THE DATA FIELD ОР THE DISPLAY WITH THE 
NUMBER OF PROMPTS (DECIMAL POINTS) AS SPECIFIED BY THE PARAMETER. #/ 
PROCEDURE( PROMPTS); 
DECLARE PROMPTS BYTE; 
CALL KBSDISPLAY( @KBSBLANKS, DATASFIELD, PROMPTS); 
END; š 


KB$BLANK$ADDR$FIELD: 
/% THIS PROCEDURE BLANKS THE ADDRESS FIELD OF THE DISPALY WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE PARAMETER "РВОМРТ5", 9?/ 
PROCEDURE( PROMPTS); 
DECLARE PROMPTS BYTE; 
CALL KBSDISPLAY( @KBSBLANKS, ADDR$FIELD, PROMPTS); 
END; 


KBSOUTSBYTE: 

/% THIS ROUTINE OUTPUTS THE BYTE INPUT FROM THE FIRST PARAMETER 
TO THE DATA FIELD WITH THE NUMBER OF PROMPTS SPECIFIED BY THE 
SECOND PARAMETER. %/ 

PROCEDURE(B, PROMPTS); 
DECLARE (B,PROMPTS) BYTE; 
DISP(0),DISP(1) = 0; /9 FIRST TWO 3LANK ®/ 
DISP(2) = LED(SHR(B,4) AND ОРН); 
DISP(3) = LED(B AND OFH); 
CALL KB$DISPLAY( @DISP, DATA$FIELD, PROMPTS); 

END; 


KB$OUT$WORD: 
/® THIS ROUTINE OUTPUTS THE FIRST PARM TO THE FIELD SPECIFIED 
BY THE SECOND WITH THE NUMBER OF PROMPTS SPECIFIED BY THE THIRD. 
LEADING ZERO BLANKING IS PERFORMED ТЕ SPECIFIED BY THE FOURTH 
PARAMETER. %/ 
PROCEDURE(W,FIELD, PROMPTS, BLANKING); 
DECLARE И WORD, (FIELD,PROMPTS,BLANKING) BYTE; 
00 1:0 TO 3; 
DISP(I) = LED(SHR(W,{(3-1)8%) AND OOOFH); 
END; 
ІР BLANKING=sBLANK THEN /% BLANK LEADING 0'5 Ф/ 
00; 
I = O; 
DO WHILE DISP(I)=3FH AND І<3; 
DISP(I) = 0; 
І з I 1; 
END; 
END; 
CALL KB$DISPLAY( @DISP,FIELD, PROMPTS); 
END; 


КВЗСЕТЗСНАЯ: 
/9 READS ONE CHARACTER FROM THE FIFO ОР THE 8279, WAITS UNTIL 
CHARACTER IS AVAILABLE AND THEN RETURNS THE CHARACTER IN GLOBAL 
VARIABLE ‘CHAR’. 9/ 


PROCEDURE; 
DO WHILE (INPUT(KBSSTATS$PORT) AND KBSINRDY)=0; ZND; 
OUTPUT(KBS$STATS$PORT) = ОЦОН; /% ENABLE INPUT DATA 2/ 
CHAR з INPUT(KBSDATASPORT); /9 READ CHARACTER "/ 
END; 


PL/M-86 COMPILER SDK86 KEYPAD MONITOR PAGE 


/94888848949408908948980890880889480848088:44:808900 0 панаваана 


s ARGUMENT EXPRESSION EVALUATOR SECTION е 
зроресзовововоововвоввввововозововововововаво / 


62 1 КВЗОЕТЗЕХРИ: 
/% THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM 
AND FORMS A WORD EXPRESSION WHICH IS RETURNED AS THE VALUE 
OF THE PROCEDURE. THE CHARACTERS INPUT ARE ECHOED TO THE 
ADDRESS OR DATA FIELD AS SPECIFIED BY THE FIRST PARAMETER. 
IF THE FIRST PARM IS О (ADDR) OR 1 (DATA) THEN THE EXPRESSION IS 
OUTPUT AS A WORD AND ТЕ -1 (DATA$BYTE) THEN AS A BYTE ALWAYS IN 
DATA FIELD. THE NUMBER OF PROMPTS BY THE SECOND PARM, AND LEADING 
ZERO BLANKING BY THE THIRD. EXPRESSION ARE TERMINATED WITH 
А COMMA,PERIOD OR COLON. ‘CHAR’ WILL CONTAIN ONE OF THESE 
ON EXIT. %/ 
PROCEDURE (FIELD,PROMPTS, BLANKING) WORD; 
DECLARE (FIELD,PROMPTS,BLANKING) BYTE, 
(SAVE,W) WORD, OPER BYTE; 


© 
МА) 
го 


ТЕ FIELD=DATA$BYTE THEN 
CALL KB$OUT$BYTE(LOW( SAVE) ,PROMPTS); 
ELSE 


64 2 OPER = KBPLUS; 
65 2 W з 0; 
66 2 DO WHILE TRUE; 
67 3 ТЕ CHARsKBREGKEY THEN 
68 3 DO; /® REGISTER NAME ®/ 
69 4 CALL KB$DISPLAY( @KB$REG$PMT,FIELD,PROMPTS); 
70 4 CALL KB$GET$CHAR; 
71 4 IF CHAR>ODH THEN СОТО ERROR; /® INVALID REG KEY %/ 
73 4 SAVE = REG$SAV(CHAR); 
4 
4 


76 4 CALL KB$OUT$WORD(SAVE,FIELD,PROMPTS,BLANKING); 
77 4 CALL KB$GET$CHAR; 
78 4 END; 
ELSE 
79 ро; /® NUMBER #/ 
80 ТЕ CHAR>OFH ТНЕМ СОТО ERROR; /* INVALID DIGIT #/ 
SAVE = 0; 


DO WHILE CHAR<=0FH; 
SAVE = SHL(SAVE,4) + DOUBLE( CHAR); 
IF FIELD=DATA$BYTE THEN 
CALL KBS$OUT$BYTE(LOW( SAVE) ,PROMPTS); 
ELSE 


а 
295) 
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87 5 CALL KB$OUT$WORD(SAVE,FIELD,PROMPTS,BLANKING); 
68 5 CALL KB$GET$CHAR; 
39 5 END; 
30 4 END; 
) 1 3 ТЕ OPER=KBPLUS THEN /% EVAL PREV OPER #/ 
32 3 Я = W + SAVE; 
ELSE 
93 3 W = И - SAVE; 
9 4 3 ТЕ FIELD=DATA$BYTE THEN 
95 3 CALL KB$OUT$BYTE(LOW(W),PROMPTS); 
ELSE 
35 CALL KB$OUT$WORD(W,FIELD,PROMPTS,BLANKING); 


ТЕ CHAR=KBCOM OR CHAR=KBPER OR CHAR=KBCOL THEN 


ке) 
~ 
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98 3 RETURN W; 
99 3 IF CHARsKBPLUS OR CHAR=KBMINUS THEN 
100 3 OPER = CHAR; 
ELSE 
101 3 GOTO ERROR; 
102 3 CALL KB$GET$CHAR; /% GET NEXT CHAR #/ 
103 3 END; 
104 2 END; 
105 1 KB$GET$ADDR: 
/% THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM AND 
FORMS AN ADDRESS EXPRESSION OF SEGMENT PART AND OFFSET PART. 
THE FIRST CHARACTER HAS ALREADY BEEN READ INTO GLOBAL "СНАП", 
IF NO SEGMENT IS ENTERED, THE SECOMD PARM DEFAULT IS USED, THE 
ADDRESS EXPRESSION IS DISPLAYED IN THE ADDRESS FIELD WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE THIRD PARM, %/ 
PROCEDURE( PTR, DEFAULT$BASE, PROMPTS); 
106 2 DECLARE PTR POINTER, DEFAULT$BASE WORD, PROMPTS BYTE, 
ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 
107 2 ARG.SEG з DEFAULTS$BASE; 
108 2 ARG.OFF = KB$SGETS$EXPR(ADDR$FIELD, PROMPTS, BLANK); 
109 2 IF CHAR=KBCOL THEN /9 SEGMENT SPEC'D #/ 
110 2 00; 
111 3 CALL КВЗСЕТЗСНААЯ; 
112 3 ARG.SEG = ARG.OFF; 
113 3 ARG.OFF = KB$GET$EXPR(ADDR$š$FIELD,PROMPTS,BLANK); 
114 3 ТЕ CHARsKBCOL THEN GOTO ERROR; 
116 3 END; 
117 2 END; 
118 1 КВЗОРРАТЕЗІР: 
/а THIS ROUTINE IS CALLED BY SINGLE STEP AND GO TO OUTPUT THE CURRENT 
CS: IP AND THE CURRENT INSTRUCTION BYTE. CS:IP IS OPENED FOR 
OPTIONAL INPUT. Ф/ 
PROCEDURE; 
119 2 CALL KB$SOUTS$WORD(IP,ADDR$FIELD,1,BLANK); /% DISPLAY ІР Ф/ 
120 2 CSIP.OFF = IP; 
121 2 CSIP .SEG = CS; 
122 2 CALL KB$SOUT$BYTE(MEMORY$CSIP,0); 
123 2 CALL КВ9СЕТЭСНАВ; 
124 2 ІР CHAR<>KBCOM AND CHAR<>KBPER THEN 
125 2 DO; /® CHANGE CS:IP #/ 
126 3 CALL KB$SBLANKS$ADDRS$FIELD(1); 
127 3 CALL KB$SBLANK$DATAS$FIELD(0); 
128 3 CALL KBS$GETS$ADDR(@CSIP,CS,1); 
129 3 END; 
130 2 END; 
120000020000 20000 00 аа ааа аа ааа аа ааа ааа аа а за 
° INTERRUPT AND RESTORE/EXECUTE SECTION . 
892808992:899999899899989994898923284999:249980848988889/ 
131 1 ЗАУЕӚВЕСІ5ТЕН5: 


/% THIS ROUTINE IS USED ТО SAVE THE STACKED USER'S REGISTERS IN THE 
MONITOR'S SAVE AREA. %/ 
PROCEDURE; 
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REG$SAV( ВЕСЗОНО(Т)) = MEMORY$USERSTACK; 
USERSTACK.OFF = USERSTACK.OFF + 2; 


END; 
SS = USERSTACK.SEG; 
SP = USERSTACK.OFF; 
END; 
КЕЗТОНЕЗЕХЕСИТЕ: 


/% THIS PROCEDURE RESTORES THE STATE O THE USER MACHINE AND 


PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN 'IRET' TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. ?/ 


PROCEDURE; 
DECLARE RESTORE$EXECUTE$CODE(*®) BYTE DATA 
(08BH,OECH, /% MOV BP,SP ё; 
O8BH,086H,002H, /8 МОМ АХ,/ВР/.РАВМ2 %/ 
08ВН,05ЕН,004Н, /8 MOV BX,/BP/.PARM1 %/ 
08EH, ODOH, /8 MOV SS,AX У, 
ОВВН,ОЕЗН, /а МОУ 5Р,ВХ 8 / 
0508, /9 POP ВР ./ 
05ЕН, /4 РОР DI ./ 
О5ЕН, /9 РОР 51 У, 
058Н, /9 РОР ВХ ./ 
ОБАН, /8 POP DX 8 / 
059Н, /% POP СХ ./ 
0588, /® POP АХ ./ 
ӘЛЕН, /% РОР DS ./ 
007H, /4 POP ES ./ 
ОСЕН) /9 IRET е/ 


RESTORE$EXECUTE$CODE$PTR WORD DATA ( .RESTORE$EXECUTE$CODE) ; 


USERSTACK.SEG = SS; 
USERSTACK.OFF = SP; 


DO 1:0 TO 10; /® PUSH USER'S REGISTERS ONTO HIS STACK #/ 


USERSTACK.OFF = USERSTACK.OFF - 2; 
MEMORY$USERSTACK = REG$SAV(REG$ORD(10-I)); 
END; 
USERSTACK.OFF = USERSTACK.OFF - 2; 
MEMORY$USERSTACK = BP; 
CALL RESTORE$EXECUTE$CODE$PTR(USERSTACK.OFF,USERSTACK.SEG); 


ND; 


INTERRUPTI$ENTRY: 
/% THIS PROCEDURE IS CALLED WHEN THE CPU IS INTERRUPTED BY ЕХЕСИТ, МС 


AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP), %/ 


PROCEDURE INTERRUPT 1; 


USERSTACK.OFF = STACKPTR; 
USERSTACK.SEG = STACKBASE; 
STACKPTR = MONITOR$STACKPTR; 
STACKBASE = MONITOR$STACKBASE; 
CALL SAVE$REGISTERS; 

FL з FL AND (NOT STEPS$TRAP); 

ТЕ LAST$COMMAND<>SS$COMMAND THEN 


/9 SAVE USER STACK INFO #/ 


/9 CLEAR STEP FLAG #/ 
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BP = MEMORY$USERSTACK; 

USERSTACK.OFF = USERSTACK.OFF + Ц; 

DO 120 TO 10; /% POP REGISTERS OFF CF STACK 9/ 


Р./М-86 COMPILER SDK86 KEYPAD MONITOR PAGE 


161 2’ CALL ВЕЗТОЯЕЗЕХЕСУТЕ; /% CONTINUE IF NOT SS #/ 

162 2 CALL КВЗОРОАТЕЗІР; 

163 2 ІР CHARsKBCOM THEN 

164 2 DO; 

165 3 IP = СЗІР,ОРЕ; 

166 3 CS = CSIP.SEG; 

167 3 FL = FL OR ЗТЕРЗТВАР; /8 SET STEP FLAG #/ 

168 3 CALL ВЕЗТОВЕЗЕХЕСУТЕ; 

169 3 END; | 

170 2 IF CHAR<>KBPER THEN GOTO ERROR; 

172 2 GOTO AFTER$COMMAND; 

173 2 END; 

174 1 INTERRUPT3$ENTRY: 

/а THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A "ТНТ 3° INSTRUCTION. 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO AN EXTERNAL 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO BE 
CALLED. ®/ 
PROCEDURE INTERRUPT 3; 

175 2 USERSTACK.OFF = STACKPTR; /9 SAVE USER STACK INFO 8/ 

176 2 USERSTACK.SEG = STACKBASE; 

177 2 ЗТАСКРТЯ = MONITOR$STACKPTR; 

178 2 STACKBASE = MONITOR$STACKBASE; 

179 2 CALL SAVE$SREGISTERS; 

180 2 GOTO AFTER$INTERRUPT; 

181 2 END; 

182 1 ІМІТФІНТФфУЄСТОЯ: 


/% THIS ROUTINE INITIALIZES АМ INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 
FROM THE ADDRESS OF "ТМТЗВОЏТТМЕ" CORRECTED BY THE APPROPRIATE 
NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE. THE SEGMENT FROM THE 
CURRENT CS REGISTER IS DETERMINED BY A MACHINE LANGUAGE CODED 
SUBROUTINE. %/ 
PROCEDURE( INT$SVECTORSPTR, INT$ROUTINESOFFSET) ; 
183 2 DECLARE ТМТЗУЕСТОВЗРТА POINTER, ТМТЗНОЏТТНЕЗОРЕЗЕТ WORD, 
VECTOR BASED INT$VECTOR$PTR STRUCTURE (OFF WORD, SEG WORD), 
CORRECTION LITERALLY ‘19H’, /% OFFSET FOR PROLOGUE е / 
INIT$SINT$SVECTOR$CODE(®) BYTE DATA 


(0558, /% PUSH ВР 8 / 
ОВВН ,ОЕСН, /® MOV ВР ,5Р е / 
08СН,0С8Н, /9 MOV АХ, СЗ 8 / 
ОСЧН,ОБЕН,ООЧН, /9 LES ВХ,/ВР/„РАВМ1 8 / 
026H,089H,007H, /% MOV ES:W/BX/,AX 8/ 
050Н, /% POP ВР е / 
0С2Н,004Н,00О0Н), из RET 4 * / 
INIT$INT$VECTOR$CODE$PTR WORD DATA (.ІМІТ%ІМТ9УЕСТОВ9СОФЕ); 
184 2 CALL INITSINTS$SVECTORSCODE$PTR( @VECTOR.SEG); /% SEGMENT PORTION 9/ 
185 2 VECTOR.OFF = INT$ROUTINESOFFSET - CORRECTION; /9 OFFSET PORTION #/ 
186 2 END; 


/% 0020 000 00 000 00 00 000 00 ооо оо ааа аа аа аа аа а е а ааа а а а а а а а аа аа аа за 
12022002 2021021 0 0100 22 0102 00082068 0000 ооо оо аа ааа аааа ааа ааа ааа ааа аа аа ва 
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ABSTRACT 


THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 


MODULE ORGANIZATION 
THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 


1. COMMANDS SECTION 


KB$GO GO 
KB$SINGLE$STEP SINGLE STEP 
КВЗЕХАМЗМЕМ SUBSTITUTE MEMORY 
КВЗЕХАМЗНЕО ЕХАМТМЕ REGISTER 
KB$MOVE MOVE 
КВФІМРОТ INPUT PORT 
КВЗОЏТРОТ ОЏТРОТ PORT 
2. COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 
NEXT$COMMAND DISPATCH 
ERROR ERROR ROUTINE 


ку 


/ + 2000000 00 ово 00007 ев те че 


? COMMANDS SECTION 8 
гавававававананавана ааа / 


KB$GO: 

/* IMPLEMENTS THE 'GO' COMMAND. DISPLAYS IP AND CURRENT INSTRUCTION 
BYTE AND OPENS CS:IP FOR INPUT AND ONE OPTIONAL BREAKPOINT. 
BEGINS EXECUTION WHEN A PERIOD IS DEPRESSED AND DISPLAYS "Е" IN 
THE ADDRESS FIELD. UPON ENCOUNTERING A BREAKPOINT, ‘BR’ IS 
DISPLAYED IN THE DATA FIELD. %/ 


PROCEDURE; 
CALL КВЗОРОАТЕ$ ІР; /% OPTIONAL CHANGE С5:ІР */ 
IF CHAR=KBCOM THEN 
DO; / 9 BREAKPOINT ?/ 


CALL KB$BLANK$ADDR$FIELD(1); 

CALL KB$BLANK$DATA$FIELD(O); 

CALL KB$GET$CHAR; 

CALL KB$GET$ADDR(@BRK1,CSIP.SEG,1); 

IF CHAR<>KBPER THEN GOTO ERROR; 

BRKI$SAVE = MEMORY$BRK1; 

MEMORY$BRK1 = BREAK$INST; 

IF MEMORY$BRK1<>BREAK$INST THEN GOTO ERROR; 
BRKI$FLAG = TRUE; 


IF CHAR<>KBPER THEN GOTO ERROR; 
CALL KB$DISPLAY( @KB$EXEC,ADDR$FIELD,0O); 
CALL KB$BLANK$DATA$FIELD(0); 

IP = CSIP.OFF; 


CS = CSIP.SEG; 
FL з FL AND (NOT STEP$TRAP); 
CALL RESTORE$EXECUTE; 


END; 


KB$SINGLE$STEP: 
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/9 IMPLEMENTS THE SINGLE STEP COMMAND. 
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CURRENT INSTRUCTION WORD. OPENS CS:IP FOR INPUT. 
COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, 
AND PERIOD TERMINATES THE COMMAND, %/ 


PROCEDURE; 


CALL КВЗИРОАТЕЗТР; 

ТЕ CHAR<>KBCOM THEN 

= CSIP.OFF; 

= CSIP.SEG; 

FL = FL OR STEP$TRAP; 
L ВЕЗТОКЕЗЕХЕСИТЕ; 


КВЗЕХАМЗМЕМ: 


/% IMPLEMENTS THE EXAMINE MEMORY COMMAND. 


GOTO ERROR; 


PAGE 12 


DISPLAYS IP AND THE 
DEPRESSINC 


/9 OPTIONAL CHANGE OF CS:IP #/ 


/9 SET TRAP FLAG BIT IN PSW а/ 


PROMPTS FOR AN 


ADDRESS AND THEN DISPLAYS THE BYTE OR WORD AT THAT LOCATION, 


IT THEN IS OPTIONALLY OPENED FOR INPUT. 


THE NEXT LOCATION. PERIOD TERMINATES. "/ 


PROCEDURE; 


DECLARE W WORD; 


CALL KBSBLANK$ADDR$FIELD(1); 


CALL КВЗОЕТЗСНАА; 


CALL KB$GETSADDR(@ARG1,CS,1); 
IF CHAR<>KBCOM THEN 


GOTO ERROR; 


DO WHILE TRUE; 
CALL KBSOUT$WORD( ARG1.OFF,ADDR$FIELD,0, BLANK) ; 
ЇР WORD$MODE THEN 
CALL KBSOUTSWORD( MEMORY $WORD$ARG1, DATASFIELD,1,NOBLANK) ; 


ELSE 


CALL КВЗООТЗВУТЕ( MEMORYS$ARG1,1); 
CALL KB$GET$CHAR; 
IF CHAR=KBPER THEN RETURN; 
IF CHAR<>KBCOM THEN 

IF WORD$MODE THEN 


IF СНАЯ=КВРЕЯ THEN 


DO; 
W з KB$SGETSEXPR(DATA$FIELD,1,NOBLANK); 


COMMA INCREMENTS 10 


/% PROMPT FOR ADDRESS ®/ 


79 GET ADDRESS 9/ 


/% CLEAR PROMPT */ 


IF (CHAR<>KBCOM) AND (CHAR<>KBPER) THEN GOTO ERROR; 


MEMORYSWORDSARG! з W; 


IF MEMORY$WORDSARG1<>W THEN GOTO ERROR; 


W = КВЗСЕТЗЕХРНА ( ОАТАЗВУТЕ, 1, МОВСАМК); 


ТЕ (CHAR<>KBCOM) AND (CHAR<>KBPER) THEN GOTO ERROR; 


MEMORYSARG1 = LOW(W); 
ТР MEMORY$ARG1<>LOW(W) THEN 
END; 


GOTO ERROR; 


RETURN; 


IF WORD$MODE THEN 
АВСТ,ОРР = АВСТ,ОРР + 2; 


ELSE 


ARG1.OFF = ARG1.OFF + 1; 


END; 
END; 


KBSEXAM$REG: 


/% IMPLEMENTS THE EXAMINE REGISTER COMMAND. 


PROMPTS FOR A VALID 


PL/M-86 COMPILER SDK86 KEYPAD MONITOR PAGE 


0472 ЕВАОРЕ CALL KBOUTWORD 
012: 
88 5 CALL KB$GETS$CHAR; 
; STATEMENT # 88 
0475 E823FF CALL KBGETCHAR 
89 5 END; 
; STATEMENT # 89 
0478 ЕВСО JMP 992 
90 4 END; 
91 3 ТЕ ОРЕВеКВРІО5 THEN /* EVAL PREV OPER 8/ 
92 3 W = W + SAVE; 
; STATEMENT # 92 
013: 
ELSE 
93 3 Ч = Я - SAVE; 
; STATEMENT # 93 
ОЧТА А1ША00 MOV AX,SAVE 
0470 29064C00 SUB Я, АХ 
014: 
94 3 IF FIELD=DATA$BYTE THEN 
; STATEMENT # 94 
0481  ВОТЕОВЕЄ CMP ' BP]. .FIELD,OFFH 
0485 750C JNZ 815 
95 3 CALL KB$OUT$BYTE(LOW(W),PROMPTS); 
; STATEMENT # 95 
0487 А1%С00 MOV АХ, W 
ОЧВА 50 PUSH AX 5-2 
0488 FF7606 PUSH [ ВР] .РВОМРТЗ; 2 
ОЧВЕ ES44FE CALL KBOUTBYTE 
0491 ЕВ10 JMP @16 
015: 
ELSE 
96 3 CALL KB$OUT$WORD(W,FIELD,PROMPTS,BLANKING); 
; STATEMENT # 96 
0493 FF364C00 PUSH W 51 
0497 FF7608 PUSH [BP]).FIELD; 2 
ОЧУА FF7606 PUSH | ВР) „РЕОМРТЗ; 3 
0490 FF7604 РОЗН [BP].BLANKING; 4 
ОЧАО E872FE CALL KBOUTWORD 
016: 
97 3 IF CHAR=KBCOM ОК CHAR=KBPER ОК CHAR=KBCOL THEN 
; STATEMENT # 97 
ОЦАЗ AOSAOO MOV AL,CHAR 
ОЧАб 3С11 CMP AL,11H 
ОЧАВ BOFF MOV AL,OFFH 
O4AA 7401 JZ $+3H 
ОЧАС 40 INC AX 
O4AD 50 PUSH AX 1 
ОЧАЕ ВОЗЕ5АООТО СМР CHAR,10H 
0483 BOFF MOV AL,OFFH 
0485 7401 JZ $+3H 
0487 (40 INC AX 
0488 59 POP СЕ 51 
0489 ОАС1 OR AL, CL 
O4BB 50 PUSH AX е 1 
ОЧВС 803E5A0014 СМР CHAR, 14H 


ОЦС1 BOFF MOV AL,OFFH 
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04С3 7401 JZ $+3H 
0465 340 ІМС АХ 
04С6 59 РОР Сї 
04С7 0АС1 OR AL,CL 
0469 -0008 АСА AL, 1 
04СВ 7305 JNB @17 
98 3 RETURN W; 
ОЧСО А14С00 MOV АХ, И 
0400 ЕВ2В ЈМР 82 
817: 
99 3 IF CHAR=KBPLUS OR CHAR=KBMINUS ТНЕМ 
0402 803Е5А0013 CMP CHAR,13H 
0407 BOFF MOV AL,OFFH 
0409 7401 JZ $+3H 
0408 40 INC AX 
очрс 50 PUSH AX 
0400 803Е5А0012 CMP CHAR,12H 
ОЧЕ2 BOFF MOV AL,OFFH 
OBEN 7:01 JZ 3-3Н 
0426 40 ЇНС АХ 
04Е7 59 РОР СХ 
08488 OAC! OR AL,CL 
ОЦВА 0008 АСА AL,1 
ОЦЕС 7203 JB $+5H 
ОЗЕЕ Е9СВЕС JMP ERROR 
100 3 OPER = CHAR; 
ОЦРІ АО5АОО MOV AL, CHAR 
ОЧРЧ А26300 MOV OPER, AL 
ELSE 
101 3 GOTO ERROR; 
102 3 CALL KB$GET$CHAR; 
ОЦЕТ бЕВАТРЕ CALL KBGETCHAR 
103 3 END; 
ОЦРА E9C6FE JMP 890 
#91: 
104 2 END; 
82: 
ОЧЕО 50 РОР ВР 
ОЧЕЕ 020600 RET 6H 
KBGETEXPR ENDP 
105 1 KBSGET$ADDR: 
IF NO SEGMENT [5 ENTERED, 
NUMBER OF PROMPTS SPECIFIED BY THE THIRD PARM, 
KBGETADDR PROC NEAR 
0501 55 PUSH BP 


/% THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM 
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; STATEMENT # 98 


; STATEMENT # 99 


51 


; STATEMENT 9 100 


/% GET NEXT CHAR 


; STATEMENT # 102 


; STATEMENT # 103 


; STATEMENT # 104 


; STATEMENT # 105 


PAGE 
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FORMS AN ADDRESS EXPRESSION OF SEGMENT PART AND OFFSET PART, 


THE FIRST CHARACTER HAS ALREADY BEEN READ INTO GLOBAL 
THE SECOMD PARM DEFAULT IS USED, 


"ОНАН". 


ТНЕ 


ADDRESS EXPRESSION IS DISPLAYED IN THE ADDRESS FIELD WITH THE 
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OUTPUT(KB$STAT$PORT) = KB$INIT$SCAN; 
CALL KB$DISPLAY(@KB$SIGNON,ADDR$FIELD,0); /% SIGN ОМ MESSAGE #/ 
CALL KB$DISPLAY( @KB$VERSION, DATA$FIELD,0O); /% VERSION NUMBER #/ 


/# INITIALIZE USER'S REGISTERS #/ 
CS,SS,DS,ES,FL,IP = 0; 
SP = USER$INIT$SP; 


CALL INITSINT$VECTOR( @INT$VECTOR(1),. INTERRUPTIS$SENTRY); 

CALL LINIT$INTS$VECTOR( @INT$VECTOR(2),. INTERRUPT 3$ENTRY); 

CALL INIT$INT$VECTOR( @INT$VECTOR(3),. INTERRUPT3$ENTRY); 
BRKI$FLAG = FALSE; 

MONITOR$STACKBASE = 5ТАСКВА5Е; /% SAVE MONITOR STACK VALUES ®/ 
MONITOR$STACKPTR = STACKPTR; 

GOTO AFTER$ERROR; 


NEXT$COMMAND: 


/% 


THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES ТО EACH 
COMMAND WHICH IS A SEPARATE PROCEDURE. #/ 


CALL KB$DISPLAY( @KB$CMND$PMT,ADDRS$FIELD,O); 


AFTER$ERROR: 


CALL KB$GET$CHAR; 
CALL KB$BLANK$ADDR$FIELD(0); 
CALL KB$BLANK$DATA$FIELD(0); 
ТЕ (LAST$COMMAND:=CHAR)>O9H THEN GOTO ERROR; 
WORD$MODE = FALSE; 
DO CASE CHAR; 

CALL КВЗЕХАМЗМЕМ; 

CALL КВЗЕХАМЗНЕС ; 

CALL KB$GO; 

CALL KB$SINGLE$STEP; 

CALL КВЗТМРИТ ; 

CALL KB$OUTPUT; 

CALL KB$MOVE; 


DO; WORD$MODE TRUE; CALL КВФЕХАМӚМЕМ; END; 


DO; WORD$MODE = TRUE; CALL КВУТМРИТ; END; 
DO; WORD$MODE = TRUE; CALL KB$OUTPUT; END; 
END; 
AFTER$COMMAND: 


ERROR: 
/% 


CALL KB$BLANK$DATA$FIELD(0); 
GOTO NEXT$COMMAND; 


THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND WILL 
OUTPUT THE ERROR MESSAGE TO THE DISPLAY AND THEN JUMP TO 
"AFTER$ERROR' TO GET ANOTHER COMMAND, %/ 


CALL KB$DISPLAY( @KB$ERR$MSG,ADDR$FIELD,0O); 
CALL KB$BLANK$DATA$FIELD(0); 
GOTO AFTER$ERROR; 


AFTER$INTERRUPT: 


/а 


THIS ROUTINE CHECKS FOR THE LAST COMMAND WHEN THE MONITOR IS 
REENTERED VIA THE INTERRUPT VECTOR. %/ 


PL/M-86 COMPILER 


404 
405 
406 
407 


408 
409 
410 
411 
412 
413 
414 


415 


IF 
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BRKI$FLAG THEN 

DO; 

MEMORY$BRK1 = BRKI$SAVE; 

BRKI$FLAG = FALSE; 

IF ((1Р-1) AND OOOFH)=(BRK1.0FF AND OOOFH) AND 

(SHR(IP-1,4)+CS)=(SHR(BRK1.0FF,4)+BRK1.SEG) THEN 

DO; 
IP = IP - 1; 
CALL KB$DISPLAY( @KB$BRK1,DATA$FIELD,0O); 
GOTO NEXT$COMMAND; 
END; 

END; 


GOTO AFTER$COMMAND; 


1 END MONITOR; /9 END OF MODULE #/ 


EOF 


MODULE INFORMATION: 


CODE AREA SIZE 
CONSTANT AREA SIZE 
VARIABLE AREA SIZE 
MAXIMUM STACK SIZE 
865 LINES READ 
О PROGRAM ERROR(S) 


0B82H 2946D 


= OOOOH OD 
= 0065H 1010 
з 0050Н 800 


END OF PLU/M-86 COMPILATION 
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ISIS-II PL/M-86 У1.0 COMPILATION OF MODULE MONITOR 

NO OBJECT MODULE REQUESTED 

COMPILER INVOKED BY: :F1:PLM86 :F1:KEYPAD.PLM LARGE OPTIMIZE(2) PAGEWIDTH(95) 4 
CODE XREF МООВЈЕСТ PRINT(:F1:KEYPAD.PRT) 


$TITLE(*SDK86 KEYPAD МОМІТОВ') 
! $NOINTVECTOR 


/9 пиво ооо ооо ооо ооо оно ооо ооо ооо ооо оо наа аа а ааа 
ооо 555555555555 5525 4 455555555555 ЛЛ 5 4445444, 


SDK-86 KEYPAD MONITOR, V1.1 
30 JUNE 1978 


(C) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART OF 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 


ABSTRACT 


ч THIS PROGRAM IS THE ROM BASED KEYPAD MONITOR FOR THE 50К-86. 
IT PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 
EXAMINIE/MODIFY MEMORY AND REGISTERS AND CONTROL PROGRAM EXECUTION. 
ENVIRONMENT 


THE SDK KEYPAD MONITOR COMMUNICATES WITH THE USER VIA THE ONBOARD 
KEYBOARD AND 7 SEGMENT DISPLAY. 


PROGRAM ORGANIZATION 


THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 


1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 
2. COMMON ROUTINES. LOWER LEVEL PROCEDURES 
| З. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 
ы CALLING GRAPH 


>>COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
ч COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) ТМ А 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 

AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 

POINTERS TO THE SDK-86 2%%20 ADDRESS SPACE ARE IMPLEMENTED WITH 


PL/M=86 COMPILER 


У; 


/% 


"у 


50К86 KEYPAD MONITOR 


POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 


MONITOR: DO; /% BEGINNING OF MODULE #/ 


б8984804098585322482380923935305800884:23809929738999248008232:40230:34 32 86823290 2398 0 
ооо ооо ооо ооо вооон оо ооо ооо ооо оо ооо ооо оао соосо 


GLOBAL DATA DECLARATIONS MODULE 


ABSTRACT 
22222222 


THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 
LITERALS (EQUATES). 


MODULE ORGAINIZATION 
2:222:2:222:222222222222 
THE MODULE IS DIVIDED INTO 5 SECTIONS: 
1. UTILITY SECTION GLOBAL FLAGS, VARIBLES, EQUATES 
2, 1/0 SECTION 
3. MEMORY ARGUMENTS SECTIONS 
4, REGISTER SECTION 
5. BOOT AND 8089 SECTION 


STRUCTURES FOR MEDIUM POINTERS 
USER REGISTER SAVE AREA 
BOOTSTRAP AND 8089 DESCRIPTOR 


1% 2220002 00 0 002 0000200020 


в UTILITY SECTION е 
099999492099290992888088/ 


2 1 DECLARE 


ІНТФУЄСТОВ( 5) POINTER; 


3 1 DECLARE 


MONITOR$STACKPTR WORD, 
MONITORS$STACKBASE WORD; 





1/0 PORTS,MASKS,AND SPECIAL CHARS 


/® INTERRUPT VECTORS %/ 


/% MONITOR SS SAVE ®/ 


PAGE 


4 1 DECLARE 
COPYRIGHT(®) BYTE DATA ('(C) 1978 INTEL CORP’); 

5 1 DECLARE 
BRKI$FLAG BYTE, /9 TRUE І? BREAK SET #/ 
BRKI$SAVE BYTE, /9 INST BREAK SAVE 9/ 
CHAR BYTE, /% ONE CHAR LOOK AHEAD %/ 
DISP(4) BYTE, 79 DISPLAY ARRAY %/ 
І BYTE, 
ЕМОЗОЕЕ WORD, /% END OFFSET ADDRESS 9/ 
WORD$MODE BYTE, 
LAST$COMMAND BYTE; 

DECLARE 

TRUE LITERALLY 'ОРРН’, 
FALSE LITERALLY ‘OOOH’, 
ADDRSFTIELD LITERALLY "1", /® ADDR FIELD WORD OUTPUT %/ 
ОАТАЗРТЕСО LITERALLY "0", /% DATA FIELD WORD OUTPUT %/ 
ОАТАЗВУТЕ LITERALLY "-1", /® DATA FIELD BYTE OUTPUT 9/ 
BLANK LITERALLY "1", 
NOBLANK LITERALLY "0", 
BREAK$INST LITERALLY "ОССН?, /% BREAKPOINT TRAP 9? / 
STEP$TRAP LITERALLY '0100Н', /9 SS TRAP FLAG MASK %/ 


2 


“ў 
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USER$INIT$SP 
GO$COMMAND 
SS$COMMAND 


SDK86 KEYPAD MONITOR 


LITERALLY 
LITERALLY 
LITERALLY 


'1008', 
"274 
“Зз 


/90889889088:08804088308888948282830890004 


1/0 DECLARATIONS SECTION 
0890800828988908898020894080808084888908808/ 


КВЗОТАТЗРОНТ 
КВФОАТАФРОВТ 
KB$INIT$MODE 


KB$INIT$SCAN 
KB$INRDY 
КВЗСМНОЗРМТ ( в) 
KB$SIGNON(*) 
КВЗУЕНЗТОН(#) 
КВЗНЕСЗРМТ (#) 
КВЗЕВАЗМ5О(8) 
КВЗЕХЕС( в) 
KB$BRK1(*) 
КВЗВЕАНКЗ ( *) 
LED(*) 


(3FH,06H,5BH,4FH, 66H, 6DH,7DH,07H, 
7FH,6FH,77H,7CH, 39H, 5EH, 79H, 71H); 


KBPER 
KBCOM 
KBREGKEY 
KBCOL 
KBPLUS 
KBMINUS 


LITERALLY 
LITERALLY 
LITERALLY 


LITERALLY 
LITERALLY 
BYTE DATA 
BYTE DATA 
BYTE DATA 
BYTE DATA 
BYTE DATA 
BYTE DATA 
BYTE DATA 
BYTE DATA 
BYTE DATA 


LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


/409048098:58:80:0:9008:88880408: 


POINTER SECTION 


0208806909098889:80884886008088/ 


7 1 DECLARE 

8 1 DECLARE 
8 

3 1 DECLARE 


MEMORY$ARGI$PTR 


POINTER, 


ARG1 STRUCTURE (OFF WORD, 
АТ (@MEMORY$ARGI$PTR), 


MEMORY$ARG1 BASED MEMORY$ARGI$PTR BYTE, 
MEMORY$WORD$ARG1 BASED MEMORY$ARGI$PTR WORD, 


MEMORY АВС 3$ РТВ 


РОТМТЕЋ, 


ARG3 STRUCTURE (ОРЕ WORD, 
AT (@MEMORY$ARG3$PTR), 


MEMORY$ARG3 BASED MEMORY$ARG3$PTR BYTE, 


MEMORY$BRK1I$PTR 


POINTER, 


BRK1 STRUCTURE (OFF WORD, 
АТ (@MEMORYS$BRK1$PTR), 


MEMORY$BRK1 BASED MEMORY$BRKI$PTR BYTE, 


MEMORY$CSIP$PTR 


POINTER, 


CSIP STRUCTURE (OFF WORD, 


‘OFFEAH', 
"ОЕЕЕВН", 
"ООН", 


'39Н', 
"07Н", 


(ВОН, ООН, ООН, ООН), 
(ЗОН, ООН, 7ЕН, ТОН), 
(00H,00H,86H,06H), 
(50H,00H,00H,00H), 
(40Н,79Н,50Н,50Н), 
(79Н,ООН,ООН,ООН), 
(7СН,50Н,ООН,ООН), 
(ООН, ООН, оон,оон), 


"тон", 
'11Н', 
'15Н', 
"14Н", 
“13Н", 
"јен; 


SEG WORD) 


SEG WORD) 
SEG WORD) 


SEG WORD) 


/% USER STACK INITIAL #/ 
GO COMMAND CODE #/ 


/% 


/% STATUS/COMMAND PORT %/ 
/% DATA PORT %/ 


/% 


ЕМСОРЕ, 
1045 SCAN RATE 


/% 


8 8-ВІТ, 


РАСЕ 


LEFT ENTRY, 


2 KEY LOCKOUT #/ 


8 / 


IN CHAR RDY MASK #/ 


.. ' ./ 
.- 86" #/ 
ы 1 ° 1 Е # 
' R е жу 
"-БКИА" #/ 
"Е ` ./ 
"ВВ ' 8, 
, " ./ 


PERIOD 
COMMA 


REGISTER KEY 
COLON (SEGMENT) 


PLUS KEY 
MINUS KEY 


/9 ARGUMENT 1 2/ 


/ %4 


/ % 


/® 


BREAKPOINT 


ARGUMENT 3 #/ 


”/ 


CS:IP INSTRUCTION %/ 


3 
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AT (@MEMORY$CSIP$PTR), 
MEMORY$CSIP BASED MEMORY$CSIP$PTR BYTE, 


MEMORY$USERSTACK$PTR POINTER, 


USERSTACK STRUCTURE (OFF WORD, 


АТ (@MEMORYSUSERSTACKS$PTR), 
MEMORYSUSERSTACK BASED МЕМОЯУЗОЗЕЯЗТАСКЗРТА WORD; 


/ 20022200 2020200002 0002225 


, REGISTER SECTION 


809080889989929992938928008/ 


DECLARE 
KB$REG( ®) 


(00H,77H,00H,7CH, ООН, 39H, ООН, SEH, 
6DH,73H,7CH, 73H, 6DH, ЗОН, 5EH, 30H, 
39Н,60Н,5ЕН,60Н,60Н,60Н,79Н,60Н, 
30H,73H,71H, 


REG$SAV(14) 
REGS$ORD( Ф) 


(7,6,1,3,2,0, 


BYTE DATA 


38H), 
WORD, 
BYTE DATA 


9.11,12.8, 


LITERALLI 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


13), 

' ВЕСЗЗАУ( 
' ВЕСЗЗАУ( 
" АЕСЗЗАУ( 
"ВЕСЗЗАУ( 


79 USER'S STACK 


SEG МОВО) 


/% USER'S 


/9 STACKED REG ORDER 


4)", 
2 
8 
9 


'REG$SAV(11 
'REG$SAV( 12 
'REG$SAV(13 


/1830889488999099099029080892949923840989988282089 


Ч BOOTSTRAP JUMP AND 8089 VECTOR е 
ваввававав ово во ваа ааа аа ааа а аа ааа аа ее / 


)', 
к, 
У“ 
"ЯЕСУЗАУ( 10)", 
ж; 
2% 
) "3 


AXBXCXDX 
SPBPSIDI 
CSDSSSES 
IPFL 


SAVED REGS 


8 / 


”у 
* 7 
./ 
°/ 
# / 


./ 


/9 THIS BOOT CONSISTS OF A LONG JUMP TO THE BEGINNING OF THE MONITOR 


АТ ЕРОО+ХХХХ WHERE ХХХХ IS THE STARTING ADDRESS OFFSET (ІР) AND 


MUST BE DETERMINED AFTER EACH COMPILE. %/ 


DECLARE 


ЗТАВТЗАООН LITERALLY 


80071( е) 
80072( 8) 
800Т3(9) 


/% THIS TWO-WORD РАТА IS A JUMP 
АТ THE FIRST LOCATION OF ROM 
THE JUMP 15 


MAY PRECEDE IT). 


DECLARE 
BOOT4( ё) 


ие THIS BLOCK OF ROM АТ FPFF6-FFFFA IS INITIALIZED FOR THE 8089 
DEVICE AND POINTS ТО A BLOCK OF RAM AT LOCATION 100Н, %/ 


DECLARE 
BLOCK$8089 
BLOCK$8089$PTR 


WORD 


"009СН", 
BYTE АТ (OFFFFOH) 
WORD АТ (OFFFF1H) 
WORD AT (OFFFF3H) 


WORD DATA (ОЕЗ9ОН, ЗТАЯТЗАООН- 4); 


ОАТА (ОБАН), 
DATA ( ЗТАНТЗАООН), 
DATA (ОҒҒООН); 


79 STARTING ADDRESS ?/ 


е / 


АТ (OFFFF6H) DATA (000018), 


POINTER АТ (ОРРЕРЗН) DATA (00100H): 


/9 SEGMENT ADDRESS 


/% LONG JUMP OPCODE 9?/ 


8 / 


PAGE 


TO THE STARTING ADDRESS AND IS LOCATED 

(NO OTHER DATA OR CONSTANT DECLARATIONS 
ACTUALLY ТО (START=-ADDR)-4 SINCE THE 
INSTRUCTION IS A RELATIVE JUMP OF LENGTH 3, 


/9 NOP,JMP START-ADDR ?/ 


4 


«ў 
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/# оно оао ао и воина ааа аа вана наа ана аа ааа вана 
ооо ооо ооо ESE RE RES ERE EER ER ESE SERRE RES ER ERR ER EE ES SE е 


COMMON PROCEDURES 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 
LEVEL ROUTINES. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 
1, BASIC 1/0 SECTION 


KB$DISPLAY DISPLAY TO LED FIELDS 
KB$BLANK$DATA$FIELD BLANK DATA FIELD WITH PROMPTS 
KB$BLANK$ADDR$FIELD BLANK ADDRESS FIELD WITH PROMPTS 
КВ%00Т%5ВҮТЕ OUTPUT A BYTE ТО DISPLAY 
KBSOUT$WORD OUTPUT A WORD TO DISPLAY 
KB$GET$CHAR INPUT A CHAR FROM KEYPAD 

2. ARGUMENT EXPRESSION EVALUATOR 
KB$GET$EXPR GET WORD EXPRESSION 
KB$GET$ADDR GET ADDRESS EXPRESSION 
КВЗОРОАТЕ$ ТР СЕТ OPTIONAL CS:IP 

З, INTERRRUPT AND RESTORE/EXECUTE ROUTINES 
SAVE$REGISTERS SAVES USERS REGISTERS 
RESTORE$EXECUTE RESTORE MACHINE STATE AND EXEC 
INTERRUPRI$ENTRY INTERRUPT FOR SINGLE STEP 
INITERRUPT3$ENTRY INTERRUPT ROUTINE FOR GO 
INIT$INT$VECTOR INITIALIZES INTERRRUPT VECTORS 


./ 


А555152542Л44444444444.) 


8 BASIC I/O SECTION Ы 
ароросвввевовововововово / 


14 1 KB$DISPLAY: 
; STATEMENT # 14 
/% THIS ROUTINE DISPLAYS THE CONTENTS OF THE ARRAY POINTED TO BY 
THE FIRST PARM TO THE FIELD SPECIFIED BY THE SECOND (ADDR OR 
DATA). THE NUMBER OF DECIMAL POINTS OR PROMPTS IS DETERMINED 
BY THE THIRD PARAMETER #/ 


KBDISPLAY PROC NEAR 
0251 55 PUSH BP 
0252 8BEC MOV BP,SP 
PROCEDURE (PTR,FIELD,PROMPTS); 
15 2 DECLARE PTR POINTER, (FIELD,PROMPTS,T) BYTE, 
DISPLAY BASED PTR (1) BYTE; 
16 2 ТЕ FIELD=ADDR$FIELD ТНЕМ 
; STATEMENT # 16 
0254 807Е0601 СМР [BP].FIELD,1H 
0258 7507 JNZ 81 
17 2 OUTPUT(KB$STAT$PORT) = 94H; /% ADDRESS FIELD #/ 


; STATEMENT # 17 
025А BAEAFF MOV ОХ, ОЕЕЕАН 
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29 


21 


23 


28 


25 


26 


0250 8091 МОУ AL,95H 
025Р 2805 JMP 8103 

01: 

ELSE 
ОЧТРОТ (КВЗЗТАТЗРОЯТ) = 90H; /9 DATA FIELD #/ 
; STATEMENT 8 18 

0261 BAEAFF MOV DX,OFFEAH 
0264 8090 MOV AL,90H 

2103: 
0266 EE OUT DX 


DO 1:0 TO 3; 
; STATEMENT # 19 


0267 алсдаа MOV І,ОН 
982: 
026С 803Е5Ғ0003 СМР Жа ЗИ 
0271 17730 ЈА 983 
T = DISPLAY(3-I); /9 DISPLAY BACKWARDS! #/ 
; STATEMENT # 20 
0273 8003 MOV AL, ЗН 
0275 24065РОО SUB AL, I 
0279 8400 мо“ АН, ОН 
0278 8966 MOV ЗТ, АХ 
0270 C45E08 LES ВХ,ГВР].РТЯ 
0280 268408 MOV СЬ,ЕЗ: (ВХ ] DISPLAY{ 31) 
0283 8806200 МОУ T,CL 


IF PROMPTS>I THEN T з T OR 80H; 
; STATEMENT Ф 21 


0287 8А4604 MOV Ам, ВР] .РАОМРТЗ 
028A 3А065РОО СМР AL, I 
028Е 7605 ЈВЕ 83 | 
; ЗТАТЕМЕНТ # 22 
0290 800Е620080 OR T, 89H 
23: 


OUTPUT(KBSDATAS$PORT) = T; 
; ЗТАТЕМЕНТ # 23 


0295 ЗАЕВРР MOV ОХ, ОРРЕЗН 
0298 А06200 МОУ AL,T 
0298 EE OUT DX 
END; 
; STATEMENT # 24 
0296 80065F0001 ADD 1,18 
02А1 7569 JNZ 882 
883: 
END; 
; STATEMENT Ф 25 
02А3 5D POP BP 
0244 С20800 RET 8H 
KBDISPLAY ENDP 
KBSBLANKS$DATASFIELD: 


; STATEMENT # 26 
/8 THIS ROUTINE BLANKS THE DATA FIELD OF THE DISPLAY WITH THE 
NUMBER OF PROMPTS (DECIMAL POINTS) AS SPECIFIED BY THE PARAMETER. "/ 


KBBLANKDATAFIELD PROC NEAR 
02А7 55 PUSH BP 
0248  8ВЕС MOV BP,SP 


PROCEDURE( PROMPTS) ; 
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27 2 DECLARE PROMPTS BYTE; 
28 2 CALL KB$DISPLAY( @£BS$BLANKS, DATA$FIELD, PROMPTS); 
; STATEMENT # 28 
О2АА 2Е8р063700 LEA AX,CS:KBBLANKS 
О2АЕ ОЕ PUSH С5 ‚4 
0280 59 PUSH AX : 2 
0281 8000 MOV AL,OH 
02B3 50 PUSH AX : 3 
0284 FF7604 PUSH СВР | ,РКОМРТ5: 4 
0287 E897FF CALL KBDISPLAY 
29 2 END; 
; STATEMENT # 29 
O2BA 5D POP BP 
0288 С20200 КЕТ 2H 
KBBLANKDATAFIELD ENDP 
30 KB$BLANK$ADDR$FIELD: 
; STATEMENT # 30 | 
/® THIS PROCEDURE BLANKS THE ADDRESS FIELD: OF THE DISPALY WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE PARAMETER 'РАОМРТ5'. 8/ 
KBBLANKADDRFIELD PROC NEAR 
028Е 55 PUSH BP 
O2BF  ЗВЕС MOV BP,SP 
| PROCEDURE(PROMPTS); 
31 ë DECLARE PROMPTS ВУТЕ; 
32 2 CALL KB$DISPLAY( @KB$BLANKS, ADDR$FIELD, PROMPTS); 
; STATEMENT # 32 
02C1 2£8D063700 LEA AX,CS:KBBLANKS 
02С6 ОЕ PUSH cs : 4 
9267 50 PUSH AX ; 2 
02C8 8001 MOV AL,1H 
02СА 50 PUSH AX : 3 
02СВ FF7604 PUSH (BP].PROMPTS; Ч 
02СЕ ЕВВОЕЕ CALL KBDISPLAY 
33 2 END; 
; STATEMENT # 33 
02D1 5D POP BP 
0202  с20200 RET 2H 
KBBLANKADDRFIELD ENDP 
34 1 KBSOUT$BYTE: 
; STATEMENT # 34 
/* THIS ROUTINE OUTPUTS THE BYTE INPUT FROM THE FIRST PARAMETER 
TO THE DATA FIELD WITH THE NUMBER OF PROMPTS SPECIFIED BY THE 
SECOND PARAMETER, #/ 
KBOUTBYTE PROC NEAR 
0205 55 PUSH BP 
0206 8BEC MOV BP,SP 
PROCEDURE(B,PROMPTS); 
35 2 DECLARE (B,PROMPTS) BYTE; 
36 2 DISP(0),DISP(1) = 0; /* FIRST TWO BLANK #/ 
; STATEMENT # 36 
02D8 8000 MOV AL,OH 
O2DA A25B00 MOV DISP,AL 
0200 A25C00 MOV DISP+1H,AL 
37 2 DISP(2) = LED(SHR(B,4) AND OFH); 
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; STATEMENT # 37 
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02Е0 8А5ЕО06 MOV BL,.BP].B 
02Е3 B104 MOV CL,4H 
02Е5 D2EB SHR BL,CL 
02Е7 80E30F AND BL,OFH 
02ЕА 8700 MOV BH,OH 
02ЕС 2ES8A4F3B MOV 012,05: 0 ВХ] 
02РО 88085000 MOV DISP+2H,CL 
38 2 DISP(3) = LED(B AND ОРН); 
; STATEMENT # 38 
О2Рц 8AS5E06 MOV BL,: ВР). В 
0277 80ЕЗОР AND BL,OFH 
О2РА 8700 MOV BH,OH 
O2FC 2E8A4F3B MOV CL,CS:LED[ ВХ) 
0300 880Е5Е00 MOV DISP+3H,CL 
39 2 CALL KB$DISPLAY( @DISP, DATA$FIELD, PROMPTS); 
; STATEMENT # 39 
0304 800Е5В00 LEA CX,DISP 
0308 1Е PUSH 03 ; 1 
0309 51 PUSH СХ Ж. 
030А 50 РОЗН АХ : 3 
0308 FF7604 РОЗН IBP].PROMPT3; 4 
ОЗОЕ ЕВЦОРЕ CALL KBDISPLAY 
40 2 END; 
; STATEMENT # 40 
0311 5D POP BP 
0312 С20400 RET UH 
KBOUTBYTE ENDP 
44 1 KBSOUT$WORD: 
; STATEMENT # 41 
/® THIS ROUTINE OUTPUTS THE FIRST PARM TO THE FIELD SPECIFIED 
BY THE SECOND WITH THE NUMBER OF PROMPTS SPECIFIED BY THE THIRD. 
LEADING ZERO BLANKING IS PERFORMED IF SPECIFIED BY THE FOURTH 
PARAMETER, %/ 
KBOUTWORD PROC NEAR 
0315 55 PUSH BP 
0316 ЗВЕС MOV BP,SP 
PROCEDURE(W,FIELD, PROMPTS, BLANKING); 
42 2 DECLARE W WORD, (FIELD,PROMPTS,BLANKING) BYTE; 
43 2 DO 1:0 TO 3; 
; STATEMENT # 43 
0318 С6065Ғ0000 MOV 1,0Н 
884: 
0310 803E5F0003 СМР 1,3Н 
0322 7729 ЈА 285 
цц 3 DISP(I) = LED(SHR(W,(3-1)*4) AND OOOFH); 
; STATEMENT # 44 
0324 B003 MOV AL, ЗН 
0326 2A065F00 SUB AL,I 
0324 8104 MOV CL,4H 
032C F6E1 MUL СЕ 
0328 8961 MOV Cx, АХ 
0330 8BSEOA MOV ВХ, BP]. W 
0333  ОЗЕВ SHR BX,CL 
0335 81E30F00 AND ВХ, ОЕН 
0339 2Е8А4738 MOV AL,CS: LEDS BX] 
0330 ВА1Е5200 MOV BL,I 
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0341 
0343 
45 3 


0346 
0348 


46 2 


0340 
0351 
47 
48 


“ Г 


0353 
49 3 


0358 
0356 
035Е 
0362 
0364 
0366 
0367 
0363 
0368 
0360 
036Ғ 
0370 
0371 
0373 
0375 
50 4 


0377 
0378 
0370 


0381 
52 ц 


0386 
23 3 


54 2 


0388 

038C 

038D 

ОЗВЕ 

0391 

0394 
55 2 


0397 
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ВН, ОН 
DISP, ВХ), АГ, 
; STATEMENT 
1,18 
084 


; ЗТАТЕМЕНТ 
[BP].BLANKING,1H 
94 


; STATEMENT 
Т, ОН 
ЗЕН AND І<3; 

; ЗТАТЕМЕМТ 


BL, I 

ВН,ОН 

ОТЗР[ ВХ], ЗЕН 
АС, ОРРН 

$+3H 

AX 


; STATEMENT 
BL, T 
ВН, ОН 
ОТ5Р ВХ] ‚ОН 


; STATEMENT 


; ЭТАТЕМЕМТ 


CALL KB$DISPLAY(@DISP,FIELD, PROMPTS); 


; STATEMENT 
AX,DISP 
DS : 1, 
АХ к 


2 
[ВР] РТЕБО; 3 
| ВР]. РНОМРТ5; 4 
KBDISPLAY 


; STATEMENT 
BP 


B700 MOV 
884758 MOV 

END; 
80065F0001 ADD 
75D0 JNZ 

885: 

ТЕ BLANKING=BLANK THEN 
807E0401 CMP 
7939 542 

ро; 
L я 0; 
С6065Ғ0000 MOV 
DO WHILE РІЗР(І) = 
086: 
ВА 1ЕБЕОО МОУ 
8700 MOV 
807Е5ВЗЕ СМР 
BOFF MOV 
7401 JZ 
40 INC 
50 PUSd 
80FB03 CMP 
BOFF MOV 
7201 JB 
40 INC 
59 POP 
2201 AND 
0008 АСА 
7311 JNB 
DISP(I) з 0; 
8A1E5F00 MOV 
B700 MOV 
C6475B00 MOV 
I з + 1; 
80065ЕОООТ ADD 
END; 
EBDO JMP 
END; 
0%: 
8D065B00 LEA 
1E PUSH 
50 PUSH 
ЕЕ7608 РЈ5Н 
FF7606 PUSH 
ЕЗВАЕЕ CALL 
END; 
50 РОР 


РАСЕ 


# 45 


/а BLANK LEADING O'S %/ 
# 46 
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56 


87 


59 


50 


61 


62 


~ 


0398 


0398 
9396 


09398 
ОЗА 1 
ОЗА2 
03А% 


0346 
ОЗА9 
ОЗАВ 


ОЗАС 
ОЗАР 
9380 


0383 
0384 
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С20800 АЕТ 8H 
KBOUTWORD ENDP 
КВЗСЕТЗСНААЯ: 
| ; STATEMENT # 56 
/® READS ONE CHARACTER FROM THE FIFO OF THE 8279. WAITS UNTIL 
CHARACTER IS AVAILABLE AND THEN RETURNS THE CHARACTER IN GLOBAL 
VARIABLE "СНАА", 9/ 
КВСЕТСЧАЯ PROC NEAR 
55 РОЗН ВР 
8BEC MOV BP,SP 
PROCEDURE; 
DO WHILE (INPUT(KB$STATSPORT) AND KBSINRDY)=20; END; 
; STATEMENT 9 57 
888: 
BAEAFF MOV ОХ, ОЕРЕАН 
EC IN DX 
4807 TEST AL, ТН 
74 а 42 888 
001Р07(К335ТАТ3РОХНТ) = 0408; / 9 ENABLE INPUT DATA ?/ 
: STATEMENT # 59 
BAEAFF MOV DX,OFFEAH 
8040 MOV AL, ВОН 
ЕЕ OUT DX 
CHAR з ТМРОТ(КВЗОАТАЗРОВТ); /9 READ CHARACTER #/ 
; STATEMENT # 60 
ВАЕЗЕР MOV ОХ, ОРРЕЗН 
ЕС ІМ DX 
A25A00 МОУ CHAR,AL 
END; 
: STATEMENT # 51 
50 РОР ВР 
C3 RET 
KBGETCHAR ENDP 
99 ее ео я ооо оо ава во ваа а даваа аа ааа ааа аа ааа .. 
, ARGUMENT EXPRESSION EVALUATOR SECTION • 
да 0998234899929994292999999898999999928909999998006/ 
KBSGETSEXPR: 
: STATEMENT # 52 
/® THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM 
AND FORMS A WORD EXPRESSION WHICH 15 RETURNED AS THE VALUE 
OF THE PROCEDURE. THE CHARACTERS INPUT ARE ECHOED TO THE 
ADDRESS OR DATA FIELD AS SPECIFIED BY THE FIRST PARAMETER. 
IF THE FIRST PARM IS 0 (ADDR) OR 1 (DATA) THEN THE EXPRESSION ІЗ 
OUTPUT AS А WORD AND IF -1 (DATA$8YTE) THEN АЗ A BYTE ALWAYS IN 
DATA FIELD. THE NUMBER OF PROMPTS ВУ THE SECOND PARM, AND LEADING 
ZERO BLANKING ВУ THE THIRD. EXPRESSION ARE TERMINATED WITH 
A COMMA,PERIOD OR COLON. 'CHAR' WILL CONTAIN ONE OF THESE 
ON EXIT. #/ 
KBGETEXPR PROC NEAR 
55 РЈ5Н ВР 
8BEC MOV ВР, 5? 
PROCEDURE (FIELD,PROMPTS,SLANKING) WORD; 
DECLARE (FIELD,PROMPTS,3LANKING) BYTE, 
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64 2 


0388 
65 2 


03BD 
66 2 


67 3 


03C3 
03С8 
68 
69 


ық» 


03СА 

03СҒ 

0300 

0301 

0304 

0307 
70 4 


O3DA 
71 4 


03DD 

03E2 

O3E4 
73: 24 


0327 

ОЗЕВ 

ОЗЕР 

ОЗЕР 

03Е2 
74 4 


0325 
03F9 
1.5 4 


03FB 
ОЗРЕ 
ОЗЕР 
0402 
0405 


76 4 


0407 
0408 
O40E 
0411 
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(SAVE,W) WORD, OPER BYTE; 
OPER = KBPLUS; 
STATEMENT # 64 


ғ ; 
С606630013 MOV OPER, 13H 
W = 0; 
; STATEMENT # 55 
C7064C000000 MOV и, ОН 


DO WHILE TRUE; 
STATEMENT # 66 


@90: 
ТЕ CHAR=KBREGKEY THEN 
; STATEMENT # 67 
803E5A0015 CMP CHAR, 15H 
7560 JNZ 85 


ро; /% REGISTER NAME #/ 
CALL KB$DISPLAY( @KB$REG$PMT,FIELD,PROMPTS); 


; STATEMENT # 69 


2Е80062700 LEA AX,CS:KBREGPMT 
ОЕ PUSH CS 2-3 

50 PUSH AX а 
ЕЕ7608 PUSH [BP].FIELD; 3 
FF7606 PUSH [BP].PROMPTS; 4 
E877FE CALL KBDISPLAY 


CALL KB$GET$CHAR; 
; STATEMENT # 70 
ЕЗВЕРЕ CALL KBGETCHAR 
IF CHAR>ODH THEN GOTO ERROR; 
; STATEMENT # 71 


803E5A000D CMP CHAR,ODH 
7603 JBE $+5H 
E9D5FD JMP ERROR 


SAVE = REG$SAV(CHAR); 
; STATEMENT # 73 


8A1E5A00 MOV BL,CHAR 

B700 MOV ВН,ОН 

D1E3 SHL ВХ, 1 

88472Е MOV AX, REGSAV[ BX] 


A34A00 MOV SAVE, АХ 
IF FIELD=DATA$BYTE THEN 
; STATEMENT # 74 
ВОТЕОВЕЕ СМР [BP].FIELD,OFFH 
750С JNZ ет 
CALL KB$OUT$BYTE(LOW(SAVE),PROMPTS); 
; STATEMENT # 75 


A14A00 MOV AX,SAVE 
50 PUSH AX 421 
РЕТ606 PUSH [ ВР] ,РВОМРТ5, 2 
E8DOFE CALL KBOUTBYTE 
EB10 JMP е8 
ет: 
ELSE 


CALL KB$OUT$WORD(SAVE,FIELD,PROMPTS, BLANKING); 


: STATEMENT # 76 
FF364A00 PUSH SAVE : 4 
FF7608 PUSH [ ВР] FIELD; 2 
FF7606 PUSH [ ВР] .РВОМРТЗ; 3 
ЕЕ7604 PUSH ІВРІ.В,АМКІМС; 4 


/% INVALID REG KEY #/ 


PAGE 
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0414 
ТТ 4 


0817 
78 ц 


041A 
O41F 
0421 
0424 
0428 


79 
80 


=> 


O42A 

082Е 

0831 
82 4 


0434 
83 ц 


ОЧЗА 
O43F 
84 5 


0441 
0444 
0446 
0448 
O44C 
ОЦЦЕ 
0450 
85 5 


0453 
0457 
86 9 


0459 
ОЦБС 
0450 
0460 
0463 


87 5 


0465 
0469 
O46C 
O46F 


TOR 


KBOUTWORD 


ТЭСНАВ; 


КВСЕТСНАВ 


OPER, 13H 
813 
AX,SAVE 
W,AX 
014 


Н ТИЕН СОТО ERROR; 


CHAR,OFH 
$+5H 
ERROR 


ЗАТЕ, ОН 
HAR<=0FH; 


CHAR, ОРН 
06 


. 
? 


STATEMENT # 77 


STATEMENT # 78 


/% NUMBER #/ 
/9 INVALID DIGIT #/ 


ЗТАТЕМЕКТ # 80 


ЗТАТЕМЕНТ # 82 


STATEMENT # 83 


SHL(SAVE,4) + DOUBLE( СНАЯ); 


AX,SAVE 
CL,4H 
АХ, СТ, 
CL,CHAR 
СН, ОН 
АХ, СХ 
ЗАУЕ, АХ 


STATEMENT # 84 


ТЕ FIELD=DATA$BYTE THEN 


CALL KBSOUTSBYTE(LOW( SAVE) ,PROMPTS); 


SDK86 KEYPAD MONI 
ЕЗРЕРЕ CALL 
88: 

CALL KB$GE 
ЕВ881РР CALL 

END; 

86: 
803Е630013 СМР 
1559 JNZ 
A14A00 MOV 
01064C00 ADD 
EBS7 JMP 

85: 

ELSE 

DO; 

ІР CHAR>OF 
803E5A000F CMP 
7603 JBE 
E988FD JMP 

SAVE = 0; 
C7064A000000 MOV 

DO WHILE C 

992: 
803Е5А000Ғ СМР 
7709 ЈА 

ЗАМЕ = 
A14A00 MOV 
B104 MOV 
D3E0 SHL 
ВАОЕБАОО MOV 
B500 MOV 
03С1 ADD 
АЗЦАОО MOV 
ВОТЕОВРЕ СМР 
750C JNZ 
A14A00 MOV 
50 PUSH 
FF7606 PUSH 
Е8Т2ҒЕ CALL 
ЕВ10 4МР 

911: 

ELSE 
CALL 
FF3Z64A00 PUSH 
FF7608 PUSH 
FF7606 PUSH 
FF7504 PUSH 


STATEMENT # 85 


[BP].FIELD,OFFH 


811 


AX,SAVE 
АХ 


812 


KB$OUT$WORD(SAVE,FIELD,PROMPTS,BLANKTING); 


SAVE 


. 
, 


. 
, 


STATEMENT # 86 


1 


{Г ВР] .РВОМРТЗ; 2 
KBOUTBYTE 


STATEMENT # 87 
1 


[BP].FIELD; 2 
[BP].PROMPTS; 3 
I ВР] .ВЕАМКТМС; 4 


РАСЕ 


PL/M-86 COMPILER 


262 
263 
264 
265 
267 
268 
269 
270 
271 
272 
273 
274 
215 
275 
277 
278 
280 
281 
282 
284 
285 
286 


287 


288 
289 
290 
291 
293 
294 
295 
296 
298 
300 
301 
302 
303 
305 


306 
308 
310 
311 
312 
313 


314 


- Әс £ ЕБЕ ГА АА ХА 2) цд) АА а) Г № Г ГО № ГО 


мере еее 


NNN мо № м 


—^ 
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REGISTER KEY AND DISPLAYS THE VALUE OF THAT RECTSTER WHICH IS 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
UNLESS ІТ IS "ЕП," WHICH TERMINATESS AS DOES PERIOD. %/ 


PROCEDURE; 


DECLARE I BYTE, SAVE WORD; 
CALL KB$BLANK$ADDRS$FIELD(1); 
CALL KB$GETS$CHAR; 
IF CHAR>ODH THEN GOTO ERROR; 
I = CHAR; 
DO WHILE TRUE; 
DISP(0),DISP(1) = O; 
DISP(2) = КВ9ВЕС(1%2); 
DISP(3) = KB$REG(I82+1); 
CALL KB$DISPLAY(ODISP,ADDR$FIELD,O); 
CALL KB$OUT$WORD(REG$SAV(I),DATA$FIELD,1,NOBLANK); /% VALUE #/ 
CALL KB$GET$CHAR; 
ТЕ CHAR<>KBCOM AND CHAR<>KBPER THEN 
DO; 
SAVE = KB$GET$EXPR(DATA$FIELD,1,NOBLANK); /% UPDATE #/ 
IF CHAR<>KBCOM AND СНАК<>КВРЕН THEN GOTO ERROR; 
REG$SAV(I) = SAVE; 


/% INVALID REG KEY */ 


/8 DISPLAY REG NAME #/ 


END; 
ТЕ СНАН-КВРЕН OR 1213 THEN RETURN; /а DONE? %/ 
I = I + 1; 
ЕМО; 
END; 
KB$MOVE: 


/% IMPLEMENTS THE MOVE COMMAND. PROMPTS FOR 3 ARGUMENTS AND MOVES 


THE BLOCK OF MEMORY SPECIFIED BY ARG1-ARG2 ТО ARG3, IF THERE 15 
A DIFFERENCE WHEN READ BACK, THEN ERROR. #/ ` 


PROCEDURE; 


CALL KB$BLANK$ADDR$FIELD(3); /* FIRST ARGUMENT %/ 
CALL KB$GET$CHAR; 

CALL KB$GET$ADDR( @ARG1,CS, 3); 

IF CHAR<>KBCOM THEN GOTO ERROR; 

CALL KB$BLANK$ADDR$FIELD(2); 

CALL KB$GET$CHAR; 

END$OFF = KB$GET$EXPR( ADDR$FIELD,2, BLANK); 
IF END$OFF<ARG1.0OFF THEN GOTO ERROR; 
IF CHAR<>KBCOM THEN GOTO ERROR; 

CALL KB$BLANK$ADDR$FIELD(1); 

CALL KB$GET$CHAR; 

CALL KB$GET$ADDR(@ARG3,ARG1.SEG,1); 
ТЕ СВАВ«>КВРЕН THEN GOTO ERROR; 


/% SECOND ARGUMENT %/ 


/% THIRD ARGUMENT #/ 


LOOP: 
MEMORY$ARG3 = MEMORY$ARG1; 
ТЕ MEMORY$ARG3<>MEMORY$ARG1 THEN GOTO ERROR; 
IF ARG1.OFF = END$OFF THEN RETURN; 
ARG1,OFF = АНС1,ОЁР + 1; 
ARG3.OFF = ARG3.OFF + 1; 
GOTO LOOP; 
END; 
КВЗТНРИТ: 


/% PROMPTS FOR A PORT WORD IN THE ADDRESS FIELD. WHEN A COMMA 


IS ENTERED THE BYTE OR WORD Т5 DISPLAYED IN THE DATA FIELD. 
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THIS MAY BE REPEATED FOR MULTIPLE READING OF THE PORT. PERIOD 
TERMINATES THE COMMAND. %/ 


PROCEDURE; 
315 2 DECLARE PORT WORD; 
316 2 CALL KB$BLANK$ADDRS$FPIELD(1); /% PROMPT FOR PORT #/ 
317 2 CALL КВ%СЕТ9СНАН; 
318 2 PORT = KB$GETSEXPR(ADDRSFIELD,1,BLANK); /% GET PORT NUMBER 9/ 
319 2 CALL KB$OUTSWORD(PORT,ADDR$FIELD,0O,BLANK); /% REMOVE PROMPT #/ 
320 2 LOOP: 
IF CHAR<>KBCOM THEN СОТО ERROR; 
322 2 IF WORD$MODE THEN 
323 2 CALL KB$SOUTS$WORD( INWORD( PORT) ,DATA$FIELD,0,NOBLANK); 
ELSE 
324 2 CALL КВЗОПТЗВУТЕ( INPUT( PORT) ,0); 
425 2 CALL КВЗОБТЗСНАА; 
326 2 IF CHAR=KBPER THEN RETURN; 
328 2 GOTO LOOP; 
329 2 END; 
330 1 КВЗОПТРИТ: 
/8 PROMPTS FOR A PORT WORD IN THE ADDRESS FIELD AND A BYTE ОН 
WORD DATUM IN THE DATA FIELD. THIS DATUM [5 OUTPUT A SINGLE TIME 
TO THE SPECIFIED PORT. %/ 
PROCEDURE; 
331 2 DECLARE (DATUM,PORT) WORD; 
332 2 CALL KB$BLANK$SADDRS$FIELD(1); /9 PROMPT FOR PORT #/ 
333 2 CALL КВЗСЕТУСНАВ; 
334 2 PORT = KB$GETSEXPR(ADDRS$FIELD,1,BLANK); 
212 2 ТЕ CHAR<>KBCOM THEN GOTO ERROR; 
337 2 CALL KB$OUT$WORD(PORT,ADDR$FIELD,O,BLANK); /% REMOVE PROMPT %/ 
338 2 CALL KB$BLANK$DATA$FIELD(1); /9 PROMPT FOR DATUM %/ 
339 2 CALL КВЗСЕТЗСНАЯ; 
340 2 LOOP: 
ТЕ WORDSMODE THEN 
341 2 DATUM = KBS$GETSEXPR(DATASFIELD,1,NOBLANK); /% GET DATUM WORD #/ 
ELSE 
342 2 DATUM = KBSGETSEXPR(DATASBYTE,1,NOBLANK); /% GET DATUM BYTE 9/ 
343 2 IF CHAR=KBCOL THEN GOTO ERROR; 
345 2 IF WORD$MODE THEN 
346 2 OUTWORD( PORT) = DATUM; 
ELSE 
347 2 OUTPUT( PORT) = LOW{ DATUM); 
348 2 IF СНАН-КВСОМ THEN /% MULTIPLE OUTPUTS #/ 
349 2 DO; 
350 3 CALL КВЗВСАНКЗОАТАФЕТЕ.0( 1); 
351 3 CALL KB$GET$CHAR; 
352 3 ТЕ СНАН<С>КВРЕЋ THEN GOTO LOOP; 
354 3 END; 
355 2 END; 
(048488888089989988992992220899239924999999894 
• COMMAND DISPATCH MAIN PROGRAM LOOP • 
010000020000 0000 000002 0008 00000000 20000 01200120200 
356 1 DISABLE; 


22! 1 ОПТРОТ( КВЗЗТАТЗРОНТ) = КВЗТМТТЗМООЕ; /% INIT 8279 %/ 
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0502  ВВЕС MOV BP,SP 
PROCEDURE( PTR, DEFAULT$BASE, PROMPTS); 
106 2 DECLARE PTR POINTER, DEFAULT$BASE WORD, PROMPTS BYTE, 
ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 
107 2 ARG.SEG = DEFAULT$BASE; 
; STATEMENT # 107 
0504 884606 MOV AX,i1BP).DEFAULTBASE 
0507 C4S5E08 LES ВХ,ІВРІ.РТВ 
0504 26894702 MOV ES: ААС! ВХ-2Н),АХ 
108 2 ARG.OFF = KB$GET$EXPR( ADDR$FIELD, PROMPTS, BLANK); 
: STATEMENT # 108 
050Е 8001 MOV AL, 1H 
0510 50 PUSH AX ; 1 
0511 FF7604 PUSH | ВР] „РВОМРТЗ; 2 
0514 50 РИЗН АХ : 3 
0515 E89DFE CALL KBGETEXPR 
0518 C45E08 LES ВХ, ВР].РТВ 
0518 268907 MOV ЕЗ:АВСІВХІ,АХ 
109 2 ТЕ CHAR=KBCOL ТНЕН /% SEGMENT SPEC'D 8/ 
; STATEMENT # 109 
051E 803Е5А0014 CMP CHAR, 14H 
0523 7527 JNZ его 
110 2 ро; 
111 3 CALL KB$GET$CHAR; 
; STATEMENT # 111 
0525 E873FE CALL KBGETCHAR 
112 3 ARG.SEG = ARG.OFF; 
; STATEMENT # 112 
0528 C45E08 LES ВХ,ІВРІ,РТА 
0528 268807 MOV AX, ES: ARG[ ВХ) 
052Е 26894702 MOV ES: АВС! BX+2H] ‚АХ . 
113 3 ARG.OFF = KB$GET$EXPR(ADDR$FIELD,PROMPTS, BLANK); 
; STATEMENT # 113 
0532 B001 MOV AL, 1H 
0534 50 PUSH AX ; 1 
0535 FF7601 PUSH IBP].PROMPTS; 2 
0538 50 PUSH AX ; 
0539 E879FE CALL КВСЕТЕХРА 
053С  СЦ5ЕО8 LES ВХ,ІВРІ,РТВ 
0532 268907 МОУ ES:ARGIBX],AX 
114 3 ТЕ CHAR=KBCOL THEN GOTO ERROR; 
: STATEMENT # 114 
0542 803E5A0014 CMP CHAR, 14H 
0547 7503 JNZ $+5H 
0549 E9TOFC JMP ERROR 
; STATEMENT # 115 
116 3 END; 
@20: 
117 2 END; 
; STATEMENT # 117 
054с 5р РОР ВР 
0540 С20800 RET 8H 
KBGETADDR ENDP 
118 1 KBSUPDATE$IP: 


; STATEMENT # 118 
/% THIS ROUTINE IS CALLED BY SINGLE STEP AND GO TO OUTPUT THE CURRENT 
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119 


120 


121 


122 


123 


124 


125 
126 


0550 
0551 


0553 
0557 
0559 
0554 
0558 
055С 


055Р 
0562 


0565 
0568 


0568 
0567 
0572 
0574 
0575 


0578 


0578 
0580 
0582 
0584 
0585 
0586 
0588 
0580 
0588 
0590 
0591 
0593 
0595 


0597 
0599 
059А 


0590 
О59Е 
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СЗ: ТР AND THE CURRENT INSTRUCTION BYTE. 


OPTIONAL INPUT. #/ 


CALL KBSOUT$WORD(IP,ADDR$FIELD,1, BLANK); 
; STATEMENT # 


PROC NEAR 
BP 
BP,SP 


REGSAV+18H; 1 


AL, 1H 
AX ; 2 
АХ ; 3 
AX Яг 
KBOUTWORD 

; STATEMENT 
AX,REGSAV+18H 
СЗІР,АХ 


; STATEMENT 
АХ, REGSAV+10H 
CSIP+2H,AX 


CALL КВ%900Т9ВҮТЕ( MEMORY$CSIP,0); 


; STATEMENT 
BX,MEMORYCSIPPTR 
ES:MEMORYCSIPE ВХ) 
AL,OH 

AX ; 2 
KBOUTBYTE 


; STATEMENT 
KBGETCHAR 


IF CHAR<>KBCOM AND CHAR<D>KBPER THEN 


; STATEMENT 
CHAR, 11H 
AL,OFFH 


CALL KB$BLANK$ADDRS$FIELD(1); 


; STATEMENT # 


AL,1H 
AX а 4 
KBBLANKADDRFIELD 


CALL KBSBLANK$DATA$FIELD(0); 


KBUPDATEIP 
55 PUSH 
8 BEC MOV 
PROCEDURE; 
FF 364600 PUSH 
8001 MOV 
50 PUSH 
50 PUSH 
50 PUSH 
E8B6FD CALL 
СЗІР,ОРР = IP; 
A1%600 MOV 
A32600 MOV 
CSIP.SEG = CS; 
А13Е00 MOV 
A32800 MOV 
C41E2600 LES 
26FF37 PUSH 
8000 MOV 
50 PUSH 
E85DFD CALL 
CALL KB$GET$CHAR; 
Е820ҒЕ CALL 
803Е5А0011 СМР 
ВОЁР MOV 
7501 JNZ 
40 INC 
50 PUSH 
803Е5А0010 СМР 
ВОРЕ MOV 
7501 JNZ 
40 INC 
$9 POP 
22C1 AND 
0008 АСА 
7316 JNB 
DO; 
B001 MOV 
50 РОЗН 
E821FD CALL 
8000 MOV 
50 PUSH 


; STATEMENT # 


АЫ, ОН 
АХ 504 


Ф 


СЗ: ТР IS OPENED FOR 


/% DISPLAY ТР ®/ 
119 


120 


121 


122 


/% CHANGE СЗ:ТР #/ 


126 


127 


РАСЕ 
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128 


O5A0 E8018FD CALL KBBLANKDATAFIELD 
CALL KB$GET$ADDR(@CSIP,CS,1); 
; STATEMENT # 128 


0543 80062600 LEA AX,CSIP 
05А7 1E PUSH DS . 1 
0548 50 PUSH AX е 
0549 FF363E00 PUSH REGSAV+10H; 3 
O5AD 8001 MOV AL,1H 
OSAF 50 PUSH AX ; 4 
0580 ЕЗШЕЕҒ CALL KBGETADDR 

END; 

822: 

END; 
; STATEMENT # 130 

0583 5D POP BP 
0584 C3 RET 

KBUPDATEIP ENDP 


/ 00а она ооо оо оно нии нони 04880620: 


8 INTERRUPT AND RESTORE/EXECUTE SECTION е 
,96098280888488808408884409820400890400 0 008:608080688888/ 


SAVE$REGISTERS: 
; STATEMENT # 131 
ие THIS ROUTINE IS USED ТО SAVE THE STACKED USER'S REGISTERS IN THE 
MONITOR'S SAVE AREA. 9/ 


SAVEREGISTERS PROC NEAR 
0585 55 PUSH BP 
0586 8BEC MOV BP,SP 
PROCEDURE; | 


ВР = MEMORY$USERSTACK; 
; STATEMENT # 132 


0588 C41E2A00 LES BX,MEMORYUSERSTACKPTR 
05BC 268807 MOV AX,ES: MEMORYUSERSTACK_ ВХ) 
05ВЕ A33800 MOV REGSAV+0AH,AX 


USERSTACK.OFF = USERSTACK.OFF + Ц; 
; STATEMENT # 133 


05с2 83062A0004 ADD USERSTACK,4H 
DO Т=0 TO 10; /% POP REGISTERS OFF OF STACK #/ 
; STATEMENT # 134 
0507 C6065F0000 MOV Т, ОН 
0994: 
05CC ВОЗЕЗЕОООА СМР І,ОАН 
0501 7724 ЈА 895 


RSG$SAV(REG$ORD(I)) = MEMORY$USERSTACK; 
; STATEMENT # 135 


0503 8А1Е5ЕО00 МОУ BL, I 

0507 8700 MOV ВН,ОН 

0509 2Е8А5Е67 MOV BL,CS: REGORD[ BX] 

0500 8700 MOV BH ,OH 

050Р БЛЕЗ SHL BX, 1 

ОБЕ! C4362A00 LES SIT,MEMORYUSERSTACKPTR | 
0525 268B04 MOV АХ, ES:MEMORYUSERSTACK; 51) 
05Е8 89472E MOV REGSAV: ВХ] ‚АХ 


USERSTACK.OFF = USERSTACK.OFF + 2; 
; STATEMENT # 136 
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ОБЕВ 83062A0002 ADD USERSTACK,2H 
137 3 END; 
; STATEMENT # 137 
05F0 8006520001 ADD 1,1Н 
0525 7505 JNZ @94 
895: 
138 2 SS з USERSTACK.SEG; 
; STATEMENT # 138 
0527 A12C00 MOV АХ, USERSTACK+2H 
ОБРА A34200 MOV REGSAV+14H,AX 
139 2 ЗР з USERSTACK.OPF; 
; ЗТАТЕМЕНТ # 139 
ОБРО А12А00 MOV AX,USERSTACK 
0600 A33600 MOV REGSAV+8H,AX 
140 2 END; 
; STATEMENT # 140 
0603 5D POP BP 
0604 СЗ RET 
SAVEREGISTERS ENDP 
144 1 RESTORESEXECUTE: 
; STATEMENT # 141 
/9 THIS PROCEDURE RESTORES THE STATE OF THE USER MACHINE AND 
PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN 'ІВЕТ' TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. ?/ 
RESTOREEXECUTE PROC NEAR 
0605 55 PUSH BP 
0606 8BEC MOV BP,SP 
PROCEDURE; 
142 2 DECLARE НЕЗТОНЕЗЕХЕСОТЕЗСООЕ(?) BYTE DATA 
(08ВН,ОЕСН, /9 MOV BP,SP 9 / 
08BH,046H,002H, /® MOV AX,/BP/.PARM2 е/ 
08ВН,05ЕН,004Н, /% МОМ ВХ,/ВР/,РАВМІ ./ 
O8EH,ODOH, /9 MOV SS,AX 9 / 
О8ВН,ОЕЗН, /9 MOV ЗР,ВХ 9 / 
O5DH, 79 POP BP * / 
OSFH, 79 РОР DL ./ 
05ЕН, 7% РОР 31 ./ 
058Н, /9 POP BX е/ 
ОБАН, 79 POP ОХ е / 
O59H, 79 POP СХ 9/ 
058н, /9 РОР АХ 9 / 
ОТЕН, /9 POP DS 9 / 
007Н, /9 РОР ЕЗ 2 / 
ОСЕН), ие IRET е / 
RESTORESEXECUTE$CODE$PTR WORD DATA ( „АЕЗТОВЕЗЕХЕСЏТЕЗСООЕ); 
143 2 USERSTACK.SEG = 55; 
; STATEMENT # 143 
0608 А14200 MOV АХ, REGSAV+14H 
0608 A32C00 MOV USERSTACK+2H,AX 
144 2 USERSTACK.OFF = SP; 
; STATEMENT # 144 
060Е A13600 MOV АХ, REGSAV+8H 
0611 АЗ2А00 MOV USERSTACK,AX 
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145 2 DO 1-0 TO 10; /® PUSH USER'S REGISTERS ONTO HIS STACK %/ 
; STATEMENT # 145 
0614 C6065F0000 MOV Т, ОН 
896: 
0619 ВОЗЕБЕОООА СМР Т, ОАН 
061Е 7726 ЧА 897 
146 3 USERSTACK.OFF = USERSTACK.OFF - 2; 
‚ STATEMENT # 146 
0620 832E2A0002 SUB USERSTACK,2H 
187 3 MEMORY$USERSTACK = REG$SAV( REG$ORD(10-I)); 
: STATEMENT # 147 
0625 B30A МОМ BL,OAH 
0627 ФА 1E5F00 SUB BL, LI 
062B 8700 MOV BH ,OH 
0620 2E8A5F67 MOV BL,CS:REGORD[ BX] 
0631 B700 MOV BH ,OH 
0633 D1E3 SHL BX, 1 
0635 88472Е MOV AX, REGSAV[ BX] 
0638 С41Е23А00 LES ВХ, MEMORYUSERSTACKPTR 
063C 268907 MOV ES:MEMORYUSERSTACK[ ВХ], АХ 
148 3 END; 
; STATEMENT # 118 
063F 80065Е0001 ADD Ж. 
0644 7503 JNZ @96 
897: 
149 2 USERSTACK.OFF = USERSTACK.OFF - 2; 
: STATEMENT # 149 
0646 832E2A0002 SUB USERSTACK, 2H 
199 2 MEMORY$USERSTACK = ВР; 
| ; STATEMENT # 150 
0648  А13800: MOV АХ, REGSAV+0AH 
O64E  СЦТЕСАОО LES BX,MEMORYUSERSTACKPTR 
0652 268907 MOV ES:MEMORYUSERSTACKI BX],AX 
151 2 CALL RESTORES$EXECUTE$CODE$PTR(USERSTACK.OFF,USERSTACK.SEG); 
; STATEMENT # 151 
0655 FF362A00 PUSH USERSTACK; 1 
0659  ЕЕЗ362С0 PUSH USERSTACK+2H; 2 
0650 2EFF160400 CALL CS: RESTOREEXECUTECODEPTR 
152 2 END; 
; STATEMENT # 152 
0662 5D POP BP 
0663 C3 RET 
RESTOREEXECUTE ENDP 
153 1 INTERRUPTI$ENTRY: 
; STATEMENT # 153 
ие THIS PROCEDURE IS CALLED WHEN THE CPU IS INTERRUPTED BY EXECUTING 
AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). #/ 
0664 06 PUSH ES 
0665 1E PUSH DS 
0666 2E8E1E9A00 MOV 05, СЗ: @@DATA$F RAME 
066B 50 PUSH AX 
066C 51 PUSH CX 
066D 52 PUSH DX 
066Е 53 PUSH BX 
ОббЕ 56 PUSH S I 
0670 57 PUSH DI 
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154 


156 


157 


158 


159 


161 


хл) М 


0671 
0674 
0675 
0676 
0677 
0678 
0679 
0674 
0678 
0576 


0670 
0675 


0680 
0682 


0685 
0687 


068А 
0680 


068F 
2692 


069% 


0697 


0690 
06А2 


0548 


06А7 


ОбАА 
ОбАЕ 


0681 
0684 
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£80900 CALL INTERRUPTIENTRY 
ЈЕ РОР DI 
5Е РОР 51 
58 РОР BX 
5А РОР DX 
59 POP CX 
58 POP AX 
ЈЕ РОР 05 
07 РОР Е5 
СР IRET 

INTERRUPTIENTRY PROC NEAR 

35 PUSH BP 
ВВЕС MOV ВР,5Р 


PROCEDURE INTERRUPT 1; 
USERSTACK.OFF = STACKPTR; 
89E0 
A32A00 MOV 

USERSTACK.SEG = STACKBASE; 


AX,SP 


/® SAVE USER STACK INFO ?/ 
STATEMENT # 154 


USERSTACK,AX 


STATEMENT # 155 


8со0 MOV AX,SS 
A32C00 MOV USERSTACK+2H, АХ 
ЗТАСКРТЯ = MONITORSSTACKPTR; 
; STATEMENT # 156 
А11400 MOV AX,MONITORSTACKPTR 
89C4 MOV ЗР,АХ 
ЗТАСКВАЗЕ = MONITOR$STACKBASE; 
; ЗТАТЕМЕНТ # 157 
А11600 МОУ АХ, МОМІТОАЗТАСКВАЅЕ 
ЗЕРО MOV SS,AX 
CALL SAVE$REGISTERS; 
; STATEMENT # 158 


Е8ЛЕҒЕ 
Ё з 


CALL 
FL AND (МОТ STEP$TRAP); 


81264800FFFE AND 


SAVEREGISTERS 


/% CLEAR STEP FLAG ?/ 
STATEMENT # 159 


REGSAV+1AH, OFEFFH 


ТЕ LAST$COMMAND<>SS$COMMAND THEN 


803Е610003 СМР 
7403 JZ 823 
CALL RESTORESEXECUTE; 


STATEMENT # 160 


LASTCOMMAND, 3H 


/% CONTINUE ТЕ NOT 55 %/ 
STATEMENT # 161 


ESSEFF CALL RESTOREEXECUTE 
823: 
CALL КВЗОРОАТЕЗТР; 
; STATEMENT # 162 
ЁВ8А6ЕЕ CALL KBUPDATEIP 
IF CHAR=KBCOM THEN 
: STATEMENT # 163 
803E5A0011 CMP CHAR,11H 
7515 JNZ 824 
DO.: 
ІР а СЗІР.ОЄР: 
; STATEMENT # 165 
A12600 MOV AX,CSIP 
A34600 MOV REGSAV+18H,AX 
CS з 031Р.5Е8: 
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167 


168 


169 


170 


172 


173 


; STATEMENT # 166 


0687 412800 MOV АХ, CSIP+2H 
O6BA A33E00 MOV REGSAV+10H, AX 
FL з FL OR STEP$TRAP; /% SET STEP FLAG %/ 
; STATEMENT # 167 
0680 810E48000001 OR REGSAV+1AH, 100H 


CALL RESTORE$EXECUTE; 
; STATEMENT # 168 
06C3 ES 3FFF CALL RESTOREEXECUTE 
END; 
@24; 
ТР CHAR<>KBPER THEN GOTO ERROR; 
; STATEMENT # 170 


06C6 803Е5А0010 CMP CHAR, 10H 
06СВ 7403 JZ $+5H 
06СО ЕОЕСҒА JMP ERROR 


GOTO AFTER$COMMAND; 
; STATEMENT # 172 


0600 E9D6FA JMP AF TERCOMMAND 
END; 
INTERRUPTIENTRY ENDP 
INTERRUPT 3$ENTRY: 


; STATEMENT # 174 
/* THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A "ТМТ 3" INSTRUCTION, 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO AN EXTERNAL 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO BE 


CALLED. ®/ 
06D3 06 _ PUSH ES 
0604 1Е . РОЗН 05 
0605 2Е8Е1Е9АО MOV DS,CS: 9@DATA$FRAME 
O6DA 50 PUSH AX 
0608 51 PUSH сх 
06рС 52 PUSH DX 
0600 53 PUSH BX 
060Е 56 PUSH 51 
060Ғ 57 PUSH DI 
ОбЕО £80900 CALL INTERRUPT3ENTRY 
06Е3 SF POP DI 
ОбЕЦ 5E POP SI 
06Е5 5B POP BX 
06Е6 SA POP DX 
06Е7 59 POP CX 
0668 58 POP AX 
06Е9 ЛЕ POP DS 
06ЕА 07 РОР ЕЗ 
ОбЕВ CF ІВЕТ 
INTERRUPT3ENTRY PROC NEAR 
ОбЕС 55 PUSH BP 
0680 8BEC MOV BP,SP 
PROCEDURE INTERRUPT 3; 
USERSTACK.OFF = STACKPTR; /% SAVE USER STACK INFO #/ 
; STATEMENT # 175 
06ЕР 89Е0 мом АХ, ЗР 
ОБЕ! A32A00 МОУ USERSTACK, AX 


USERSTACK.SEG = STACKBASE; 
; STATEMENT # 176 


21 


Р./М-86 COMPILER 


177 


178 


179 


180 


181 


182 


183 


184 


185 


186 


06РЦ 
06Р6 


0629 
06РС 


ОбЕЕ 
0701 


0703 


0706 


0709 
ОТОА 


070C 
ОТОР 
0713 
0714 
0715 


O71A 
0710 
9720 
0723 
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8CDO 
A32C00 
STACKPTR = 


A11400 
89C4 
STACKBASE = 


A11600 
8EDO 


MONITOR 


MOV AX,SS 
MOV USERSTACK+2H, AX 
MONITORS$STACKPTR; 
; STATEMENT 

MOV AX,MONITORSTACKPTR 
MOV SP,AX 
MONITOR$STACKBASE; 

; STATEMENT 
AX,MONITORSTACKBASE 
55 АТ 


МОУ 
MOV 


CALL SAVE$REGISTERS; 


ЕВАРЕЕ 


; ЗТАТЕМЕНТ 


CALL SAVEREGISTERS 


GOTO AFTERSINTERRUPT; 


ESD6FA 
END; 


INTERRUPTZENTRY 


INITS$INTSVECTOR: 


/9 THIS ROUTINE INITIALIZES AN INTERRRUPT VECTOR AS FOLLOWS: 


FROM THE ADDRESS OF CORRECTED BY THE APPROPRIATE 


; STATEMENT 


JMP AFTERINTERRUPT 


ENDP 


# 


# 


177 


178 


179 


180 


; STATEMENT # 182 


"ТМТЗВООТТМЕ" 


NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE. 
CURRENT CS REGISTER IS DETERMINED BY A MACHINE LANGUAGE CODED 


SUBROUTINE. 


INITINTVECTOR 


79 
ЗВЕС 


8/ 

PROC NEAR 
PUSH BP 

MOV BP,SP 


PROCEDURE( ТМТЗУЕСТОЯЗ РТА, INT$ROUTINESOFFSET) ; 


DECLARE INT$VECTOR$PTR POINTER, 
VECTOR BASED INT$VECTOR$PTR STRUCTURE (OFF WORD, 
CORRECTION LITERALLY 


“лен? я 


ТНТТЗТИНТЗУЕСТОНЗСООЕ( #) BYTE DATA 


(0558, 


/% 


O8BH,OECH, /% 
08СН,0С8Н, /% 
ОСЧН, О5ЕН, ООЧН, /% 
026Н,089Н,007Н, / 9 


0508, 


/% 


0С2Н,004Н,000Н), /% 
INITSINTSVECTOR$CODE$PTR WORD DATA (.INITSINTSVECTORSCODE) ; 


PUS 
MOV 
MOV 
LES 
MOV 
POP 
RET 


H BP 
ВР,5Р 
АХ,С5 
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THE ОҒЕЗЕТ 


THE ЗЕОМЕМТ FROM ТНЕ 


INT$ROUTINESOFFSET WORD, 


SEG WORD), 


/% OFFSET FOR PROLOGUE 9/ 


8 / 
е / 
е / 


ВХ, /ВР/.РАВМ1 4/ 
ES:W/BX/,AX 8 / 


ВР 
4 


CALL INIT$INTSVECTORSCODES$PTR( @VECTOR.SEG) ; 
; STATEMENT # 


C4S5E06 
268D4702 
06 

50 
2ЕҒЕ160600 


VECTOR.OFF = 


884604 
ВЗЕВ 19 
С45Е06 
268907 
END; 


LES 
LEA AX, ES: УЕСТОВ! BX+2H] 
PUSH ES ; 1 
PUSH AX ; 2 
CALL 
INTSROUTINES$OFFSET - 


ЗХ, ВР). ІМТУЕСТОЯРТА 


; STATEMENT # 


MOV 
SUB 
LES 
MOV 


AX,19H 


ES: УЕСТОЯ[ ВХ] ‚АХ 


ВХ,: ВР]. INTVECTORPTR 


184 


CS: INITINTVECTORCODEPTR 
CORRECTION; 


185 


АХ, ВР). INTROUTINEOFFSET 


е / 
8 / 


/% SEGMENT PORTION #/ 


/9 OFFSET PORTION ?/ 


PL/M-86 COMPILER SDK86 KEYPAD MONITOR PAGE 23 


; STATEMENT # 186 


0726 5D POP BP 
0727 С20600 RET 6H 
INITINTVECTOR ENDP 


/9 ооо ово вана ооо ааа ааа ава наа ава аа ааа ава вана ааа 
ваааавнавоаааааааааа ааа ХХ АДА АЛЛАХА зачета ааа а 


COMMAND MODULE 
2222222222221: 2 


ABSTRACT 


THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP, 


MODULE ORGANIZATION 
THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 


1. COMMANDS SECTION 


KB$GO со 
KB$SINGLE$STEP SINGLE STEP 
KB$EXAM$MEM SUBSTITUTE MEMORY 
KB$EXAM$REG EXAMINE REGISTER 
KB$MOVE MOVE 
КВЗТНРОТ ТМРЏТ PORT 
КВУООТРОТ ОЏТРЏТ РОВТ 
2. COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 
NEXT$COMMAND DISPATCH 
ERROR ERROR ROUTINE 
./ 
/501080880992800900023808808908800 
. COMMANDS SECTION . 
98808088848898082888480489080808/ 
187 1 KB$GO: 
; STATEMENT # 187 
/9 IMPLEMENTS THE "00" COMMAND, DISPLAYS ІР AND CURRENT INSTRUCTION 
BYTE AND OPENS CS:IP FOR INPUT AND ONE OPTIONAL BREAKPOINT, 
BEGINS EXECUTION WHEN А PERIOD IS DEPRESSED AND DISPLAYS 'Е' IN 
THE ADDRESS FIELD, UPON ENCOUNTERING A BREAKPOINT, 'BR' IS 
DISPLAYED IN THE DATA FIELD, 9/ 
KBGO PROC NEAR 
072, 55 PUSH BP 
0728 8BEC MOV BP,SP 
PROCEDURE; 
188 2 CALL KB$UPDATE$IP; /% OPTIONAL CHANGE CS:IP %/ 
; STATEMENT # 188 
0720 Е820ОҒЕ . CALL KBUPDATEIP 
189 2 IF CHAR=KBCOM THEN 
; STATEMENT # 189 
0730 803E5A0011 CMP CHAR,11H 
0735 7548 JNZ @26 
190 2 DO; /8 BREAKPOINT #/ 


191 3 CALL KB$BLANK$ADDR$FIELD(1); 
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132 


199 


19 4 


195 


797 


198 


199 


201 


202 


203 


0737 
9739 
073A 


0730 
073F 
0740 


0743 


0745 
ОТЦА 
0748 
07%С 
0759 
0752 
МГ? 32 


0756 
0758 
0750 


9760 
0764 
0767 


076А 


076Е 
0772 
0776 
0778 


0778 


0780 


0782 


0787 
0789 








SDK36 KEYPAD MONITOR 


; STATEMENT # 191 


8001 MOV AL, 1H 
50 PUSH AX 8: З 
ЕВ881ЕВ CALL KBBLANKADDRF IELD 


CALL KBSBLANK$DATA$FIELD(O); 
; STATEMENT # 192 


B000 MOV AL,OH 
50 PUSH AX с 9 
ES64FB CALL KBBLANKDATAFIELD 


CALL KB$GET$CHAR; 
; STATEMENT # 193 
Е855ЕС CALL KBGETCHAR 
CALL KB$GET$ADDR(@BRK1,CSIP.SEG,1); 
; STATEMENT # 194 


80062200 СЕА АХ, ВЕК! 

ТЕ PUSH DS 1 
50 PUSH AX ; 2 
ЁЁ362800 РЈ5Н С5ІР»2Н ; 3 
8001 MOV AL,1H 

50 PUSH AX ; 4 
ЕВАВЕО CALL KBGETADDR 


IF CHAR<>KBPER THEN GOTO ERROR; 
; STATEMENT # 195 


803Е5А0010 СМР CHAR, 10H 
7403 42 $+5H 
E95CFA JMP ERROR 


BRK1$SAVE = MEMORY$S8RK1; 
; STATEMENT 8 197 


(14182200 LES BX, MEMORYBRKIPTR 
268A07 MOV АС , ЕЗ : МЕМОВУВАКТ- ВХ) 
А25900 МОУ BRKISAVE,AL 


MEMORY$BRK1 = BREAKSINST; 
; STATEMENT # 198 
26С507СС MOV ES:MEMORYBRK1_BX],0CCH 


ТЕ MEMORY$BRK1<>BREAK$INST THEN GOTO ERROR; 


; STATEMENT # 199 


С41Е2200 LES BX,MEMORYBRKX1PTR 
26803FCC CMP ES:MEMORYBRK1_BX],0CCH 
7403 JZ $+5H 

Е9Ш1ҒА ЈМР ERROR 


BRKI$FLAG = TRUE; 
; STATEMENT # 201 


C5065800FF MOV BRKIFLAG,OFFH 
END; 
; STATEMENT # 202 
EBOA JMP 829 
826: 
ELSE 


IF CHAR<>KBPER THEN GOTO ERROR; 
; STATEMENT # 203 


803Е5А0010 СМР СНАН, 10H 
7403 JZ $+5Н 
Е930ҒА ЈМР ERROR 
; STATEMENT # 294 
829: 


CALL KBSODISPLAY( @KBSEXEC ADDRS$SFIELD,O); 
; STATEMENT # 205 
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078C 2Е80062Ғ00 LEA AX,CS:KBEXEC 
0791 ОЕ PUSH с5 ; 1 
0792 50 РОЗН АХ ; 2 
0793 8001 MOV AL, 1H 
0795 50 PUSH AX ; 3 
0796 8000 MOV AL,OH 
0798 50 PUSH AX Эн! 
0799 ЕЗВБРА CALL KBDISPLAY 
206 CALL KB$BLANK$DATA$FIELD(0); 
; STATEMENT # 206 
079C 8000 MOV AL,OH 
079Е 50 PUSH AX ; 1 
079F E805FB CALL KBBLANKDATAFIELD 
207 IP = CSIP.OFF; 
| ; ЗТАТЕМЕНТ # 207 
0742 412600 MOV AX,CSIP 
0745 A34600 MOV REGSAV+18H, AX 
208 CS = CSIP.SEG; 
; STATEMENT # 208 
07А8 A12800 MOV AX,CSIP+2H 
ОТАВ АЗЗЕОО MOV REGSAV+10H, AX 
209 FL = FL AND (МОТ STEP$TRAP); 
; STATEMENT # 209 
ОТАЕ 81264800FFFE AND REGSAV+1AH, OFEFFH 
210 CALL ВЕЗТОНЕЗЕХЕСИТЕ; 
; STATEMENT # 210 
078% ЕВЦЕРЕ CALL RESTOREEXECUTE 
211 END; 
; STATEMENT # 211 
0787 5D POP BP 
07B8 C3 RET 
KBGO ENDP 
212 KB$SINGLE$STEP: 
; STATEMENT # 212 
/8 IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS IP AND THE 
CURRENT INSTRUCTION WORD. OPENS CS:IP FOR INPUT. DEPRESSING 
COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, 
AND PERIOD TERMINATES THE COMMAND. %/ 
KBSINGLESTEP PROC NEAR 
0789 55 PUSH BP 
ОТВА 8BEC MOV BP,SP 
PROCEDURE; 
213 2 CALL KB$UPDATE$IP; /9 OPTIONAL CHANGE OF CS:IP #/ 
; STATEMENT # 213 
ОТВС E891FD CALL KBUPDATEIP 
214 2 IF CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 214 
ОТВЕ 803E5A0011 CMP CHAR,11H 
0705 7403 22 $+5Н 
ОТСб E9F3F9 ЈМР ERROR 
IP = CSIP.OFF; 
; STATEMENT # 216 
ОТС9 А12600 MOV AX,CSIP 
ОТСС A34600 MOV REGSAV+18H, АХ 
217 2 CS = CSIP.SEG; 


; STATEMENT # 217 
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221 


222 
223 


226 


228 


229 


го гә 


ОТСЕ А12800 MOV АХ, CSIP+2H 
9702 А33Е00 МОУ REGSAV+10H,AX 
FL з FL OR ЗТЕРЗТНАР; /% SET TRAP FLAG ВІТ IN PSW ?/ 
; STATEMENT # 218 
0705 810Е48000001 OR REGSAV+1AH,100H 


CALL НЕЗТОНЕЗЕХЕСИТЕ; 
; STATEMENT # 219 


0708 E827FE CALL RESTOREEXECUTE 
END; 
; STATEMENT # 220 
07DE 50 POP BP 
ОТОЕ СЗ RET 
KBSINGLESTEP ENDP 
КВЗЕХАМЗМЕМ: 


| ; STATEMENT # 221 
/® IMPLEMENTS THE EXAMINE MEMORY COMMAND. PROMPTS FOR AN 
ADDRESS AND THEN DISPLAYS THE BYTE OR WORD AT THAT LOCATION, 
IT THEN [5 OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO 
THE NEXT LOCATION. PERIOD TERMINATES. 9/ 


KBEXAMMEM PROC NEAR 
ОТЕО 55 PUSH BP 
07Е1  ВВЕС MOV ВР, ЗР 
PROCEDURE; 
DECLARE W WORD; 
CALL KB$BLANKSADDRS$FIELD(1); /% PROMPT FOR ADDRESS #/ 
; STATEMENT # 223 

07Е3 8001 MOV AL,1H 
O7E5 50 PUSH AX ; 1 
0726 E8DSFA CALL KBBLANKCADDRFIELD 


CALL KBSGETS$CHAR; 
; STATEMENT # 224 


07Е9 ESAFFB CALL KBGETCHAR 
CALL КВЗСЕТЗАРОН ( ФАНСТ,С5,1); /% GET ADDRESS %/ 
; STATEMENT # 225 
07ЕС 30061А00 LEA AX, ARGI 
ОТЕО 1E PUSH DS 1 
07Е1 50 PUSH АХ ; - 
ОТЕ2 ЕЕЗ6ЗЕ00 PUSH REGSAV+10H; 3 
0725 8001 MOV AL,1H 
0728 50 PUSH AX ; 4 
0729 280520 CALL KBGETADDR 


ТЕ CHAR<>KBCOM THEN QOTO ERROR; 
; STATEMENT # 226 


ОТЕС 803Е5А0011 СМР СНАК,118 
0801 7403 Ја $+5H 
0893 298629 ЈМР ERROR 


DO WHILE TRUE; 
: STATEMENT # 228 
998: 
CALL KBSOUT3SWORD(ARG1.OFF,ADDR$FIELD,0O, BLANK); /% CLEAR PROMPT ?/ 
; STATEMENT $ 229 


9806 FF361A00 PUSH ARG1 62.7 
080, 8001 MOV АС, 1Н 
980С 50 PUSH AX зе 
9890 8109 MOV Со, ОВ 


ОВОЕ 51 PUSH СХ ‚3 
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233 


236 


238 
239 


= > 


0810 
0811 


0814 
0817 
0819 


0818 
081Ғ 
0822 
0824 
08 25 
0827 
0828 
0829 
0826 


082Е 
0832 
0835 
0837 
0838 


0838 


ОВЗЕ 
0843 


0845 
0846 


0847 
O84C 
ОВЦЕ 


0851 
0854 
0856 


0858 
085A 
085B 
085D 
085E 
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50 PUSH AX ; 4 
E801FB CALL KBOUTWORD 
IF WORD$MODE THEN 
; STATEMENT # 230 


A06000 MOV AL,WORDMODE 
0008 RCR AL, 1 
7313 JNB 833 


CALL KB$OUT$WORD(MEMORY$WORD$ARGI1,DATA$FIELD,1,NOBLANK); 
STATEMENT # 231 


, 

C41E1A00 LES BX,MEMORYARGIPTR 
26FF37 PUSH ES:MEMORYWORDARG1: BX] 
В000 МОМ АБ, ОН 
50 PUSH AX ; 2 
8101 MOV CL,1H 
51 PUSH CX Е 3 
50 PUSH AX ; 4 
ЕЗЕЗЕА CALL KBOUTWORD 
EBOD JMP 034 

033: 

ELSE 


CALL КВЗОЏТЗВУТЕ( MEMORY$ARG1,1); 
; STATEMENT # 232 


C4¥1E1A00 LES BX,MEMORYARGIPTR 
26FF37 PUSH ES:MEMORYARG1: BX] 
8001 MOV AL,1H 
50 PUSH AX 5 2 
E89AFA CALL KBOUTBYTE 

е3ц: 


CALL KB$GET$CHAR; 
; STATEMENT # 233 
E85DFB CALL KBGETCHAR 
IF CHAR=KBPER THEN RETURN; 
; STATEMENT # 234 


803E5A0010 CMP CHAR, 10H 
1502 JNZ 835 
; STATEMENT # 235 
5D POP BP 
C3 RET 
035: 


IF CHAR<>KBCOM THEN 
; STATEMENT # 236 


803E5A0011 CMP CHAR,11H 
7503 JNZ $+5H 
E99100 JMP @36 


IF WORD$MODE THEN 
; STATEMENT # 237 


A06000 MOV AL,WORDMODE 
0008 RCR AL,1 
7343 JNB 037 

DO; 


W = KB$GET$EXPR(DATA$FIELD,1,NOBLANK); 
; STATEMENT # 239 


B000 MOV АС, ОН 
50 PUSH AX 5 1 
В101 МОУ CL,1H 
51 PUSH CX за 
50 PUSH АХ : 3 
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245 


246 
247 


248 
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085Р 
0862 


0865 
O86A 
086C 
086Е 
086Р 
0879 
0875 
0877 
0879 
0874 
0878 
0870 
ОВТЕ 
0881 


0884 
0837 
0888 


ОВВЕ 
0892 
0895 
0899 


0898 
0890 
0895 
ОВАО 
ОВАТ 
ОВАЗ 
ОВАЦ 
ОВА? 


ОВАА 
ОВАЕ 
0881 
0883 
0384 
9885 
ОЗВА 
08BC 
0885 
ОВВЕ 
08С0 
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ЕВБЗЕВ CALL KBGETEXPR 
A34E00 MOV Я, АХ 


ТЕ (CHAR<>KBCOM) AND (CHAR<>KBPER) THEN GOTO ERROR; 
; STATEMENT # 240 


803E5A0011 CMP CHAR,11H 
BOFF MOV AL, OF FH 
7591 JNZ $+3H 
10 ІНС АХ 
50 PUSH AX ; 1 
803Е5А0010 СМР CHAR, 10H 
BOFF MOV AL,OFFH 
7501 JNZ $+3Н 
40 ING АХ 
59 РОР CX : 4 
2261 AND 41 CL 
0008 RCR AL, 1 
7303 JNB $+5H 
Е938Ғ9 ЈМР ERROR 
MEMORYS$WORDSARG1 = W; 
; STATEMENT # 242 
А 1ЦЕОО MOV АХ, W 
С81Е1А00 LES BX,MEMORYARGIPTR 
268907 MOV ES:MEMORYWORDARG1; ВХ] ‚АХ 


ТЕ MEMORY$WORD$ARG1<>W THEN GOTO ERROR; 
; STATEMENT # 243 


СЦ1ЕТАОО LES BX,MEMORYARGIPTR 
268807 MOV АХ, ES: MEMORYWORDARG1° BX] 
ЗВОбЦЕОО СМР АХ, И 
Е842 ЈМР 29 
END; 
; STATEMENT # 245 
937: 
ELSE 
DO; 
Ч = KBSGET$SEXPR(DATASBYTE,1,NOBLANK); 
; STATEMENT # 247 
BOFF MOV AL,OFFH 
50 PUSH AX ; 1 
8001 MOV А,,1Н 
50 PUSH AX : 2 
8000 MOV АС, ОН 
50 РОЗН АХ ; 3 
ЕВОБЕВ CALL KBGETEXPR 
A34E00 MOV W,AX 
IF (CHAR<>KBCOM) AND ( СНАЙ< > КВРЕН) THEN GOTO ERROR; 
; STATEMENT # 248 
803Е5А0011 СМР СНАН,11Н 
BOF F MOV АС, ОРЕН 
7501 JNZ $+3Н 
40 INC AX 
50 PUSH АХ "1 
803E5A0019 CMP CHAR, ТОН 
BOFF MOV АС, ОРЕН 
7501 JNZ ".3Ч 
40 INC AX 
59 POP cz а 
2261 AND Au, GU 
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08с2 0008 RCR АШ, 1 
08С4 7303 JNB $+5H 
08C6 E9F3F8 JMP ERROR 
250 4 МЕМОНҮЗАЯС1 = LOW(W); 
: STATEMENT # 250 
08С9 А1%Е00 MOV АХ, М 
ОВСС C41E1A00 LES 8X,MEMORYARGIPTR 
0800 268807 MOV 5$: МЕМОЯТАНСТ ВХ], АС 
251 4 ТЕ MEMORYSARG1<>LOW( м) THEN GOTO ERROR; 
; STATEMENT # 251 
0803 А14ЕОО МОУ АХ, м 
0806 CH1E1AOO LES BX,MEMORYARGIPTR 
08рА 263807 CMP ES:MEMORYARGIEBX],AL 
89: 
0820 7403 JZ $+5H 
O8DF E9DAF8 JMP ERROR 
: STATEMENT 252 
253 4 END; 
836: 
254 3 ТЕ CHAR=KBPER ТНЕМ RETURN; 
$ STATEMENT 254 
08Е2 803E5A0010 СМР СНАН,10Н 
ОВЕ? 17502 JNZ 843 
; STATEMENT # 255 
08Е9 50 POP BP 
ОВБА СЗ RET 
943: 
256 3 ТЕ WORD$MODE THEN 
; STATEMENT 256 
08ЕВ  А06000 MOV AL,WORDMODE 
O8EE 0008 RCR AL,1 
ОВЕО 7307 JNB ayy 
257 3 ARG1.OFF з АЯСТ,ОРЕ + 2; 
; STATEMENT 257 
ОВЕ2 83061A0002 ADD ARG1,2H 
08F7 2805 ЈМР 810 
ецц: 
ELSE 
258 3 ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT 258 
0829 83061A0001 ADD АВС1,1Н 
259 3 END; 
; STATEMENT 259 
910: 
O8FE Е905ҒҒ ЈМР 898 
599: 
260 2 END; 
: STATEMENT 260 
0901 5D POP BP 
0902 СЗ RET 
KBEXAMMEM ENDP 
261 1 КВЗЕХАМЗКЕС: 


/9 IMPLEMENTS THE EXAMINE REGISTER COMMAND. 


STATEMENT # 261 
PROMPTS FOR A VALID 


REGISTER KEY AND DISPLAYS THE VALUE OF THAT REGISTER WHICH IS 


OPTIONALLY OPENED FOR INPUT. 


COMMA INCREMENTS TO NEXT REGISTER 


PAGE 
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0903 
0904 


262 
263 


мо го 


0906 
0908 
0909 


О90С 
265 2. 


090F 

0914 

0916 
267 2 


0919 
09 1С 
268 2 


269 3 


091F 

0921 

0924 
270 3 


0927 
092A 
092C 
092Е 
09 30 
0934 


0938 
093C 


0940 
0944 
0945 
0946 
0948 
0949 
0948 
094C 

273 3 


094 
0953 
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UNLESS ТТ IS "Ри" WHICH TERMINATESS AS DOES PERIOD. %/ 
KBEXAMREG PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE; 
DECLARE I BYTE, SAVE WORD; 
CALL KB$BLANKS$ADDR$FIELD(1); 
; STATEMENT # 263 
8001 MOV AL, 1H 
50 PUSH AX ; 1 
ЕЗВ2Е9 CALL KBBLANKADDRFIELD 
CALL KB$GETS$CHAR; 
; STATEMENT # 264 
ЕВВСРА CALL KBGETCHAR 
IF CHAR>ODH THEN GOTO ERROR; /а INVALID REG KEY Ф/ 
; STATEMENT # 265 
803Е5А0000 СМР CHAR,ODH 
7603 JBE $+5H 
E9A3F8 JMP ERROR 
I = CHAR; 
; STATEMENT # 267 
405400 MOV AL,CHAR 
A26400 MOV 14:45 
DO WHILE TRUE; 
; STATEMENT # 268 
8100: 
DISP(0),DISP(1) = 0; /8 DISPLAY REG NAME %/ 
; STATEMENT # 269 
8000 MOV AL, ОН 
А25800 MOV DISP,AL 
A25C00 MOV DISP+1H,AL 
DISP(2) = KB$REG(I®2); 
; STATEMENT # 270 
A06400 MOV AL,I 
B102 MOV CL,2H 
F6E1 MUL CL 
8963 MOV BX, АХ 
2E8A4F4B MOV CL,CS:KBREG{ ВХ) 
880E5D00 MOV DISP+2H,CL 
DISP(3) з КВҘЋЕС(1%2+1); 
; STATEMENT # 271 
ФЕВАЦЕЦС MOV CL,CS:KBREG: ВХ+1Н] 
880Е5Е00 MOV DISP+3H,CL 
CALL KBS$DISPLAY(@DISP,ADDR$FIELD,0O); 
; STATEMENT # 272 
8D065B00 LEA AX,DISP 
ЈЕ РОЗН 03 ; 1 
50 PUSH AX хо 8 
800! MOV AL, 1H 
59 PUSH AX и: 3 
B000 MOV AL,OH 
59 PUSH AX ЭГ 
E802F9 CALL KBDISPLAY 
CALL KBSOUT$WORD( REG$SAV(I),DATASFIELD,1,NOBLANK); /% VALUE %/ 
; STATEMENT # 273 
ЗА 1Е6400 мом 81,1 
8700 MOV BH,OH 
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0955 
0957 
095A 
0950C 
095D 
095F 
0960 
0961 


0964 
215 3 


0967 
0966 
096E 
0970 
0971 
0972 
0977 
0979 
0978 
097C 
097D 
097F 
0981 

276 3 

277 4 


0983 
0985 
0986 
0988 
0989 
098A 
098D 
278 4 


0990 
0995 
0997 
0999 
0994 
099B 
09A0 
09А2 
O9A4 
09А5 
09А6 
0948 
O9AA 
O9AC 
280 4 


09АҒ 
0983 
0985 
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D1E3 SHL BX, 1 
ЕЕТ72Е РОЗН REGSAV[BX]; 1 
8000 MOV AL,OH 
50 PUSH AX ; 2 
8101 МОУ CL,1H 
51 PUSH сх ; 3 
50 PUSH AX ЭГ 
E8B1F9 CALL KBOUTWORD 
CALL KB$GET$CHAR; 
; STATEMENT # 274 
ES34FA CALL KBGETCHAR 


IF CHAR<>KBCOM AND CHAR<>KBPER THEN 


; STATEMENT # 275 


803E5A0011 CMP CHAR,11H 
BOFF MOV AL,OFFH 
7501 JNZ $+3H 
40 INC AX 
50 PUSH AX 553 
803E5A0010 CMP CHAR, 10H 
BOFF MOV AL,OFFH 
7501 JNZ $+3H 
40 INC AX 
59 POP СХ з 4 
2201 AND AL, CL 
0008 АСА АС, 1 
ТЗЗА JNB ецт 

ро; 

SAVE = KB$GET$EXPR(DATA$FIELD,1,NOBLANK); /% UPDATE ®/ 

; STATEMENT # 277 

B000 MOV АЫ, ОН 
50 PUSH AX 4 
B101 MOV CL,1H 
51 PUSH CX га 
50 PUSH AX 5-3 
Е828ҒА CALL KBGETEXPR 
A35000 MOV SAVE,AX 


IF CHAR<>KBCOM AND CHAR<>KBPER THEN GOTO ERROR; 


; STATEMENT # 278 


803E5A0011 CMP CHAR, 11H 
BOFF MOV AL, OFFH 
7501 JNZ $+3H 
10 ІМС АХ 
50 PUSH AX 1 
803Е5А0010 СМР CHAR, 10H 
BOFF MOV AL,OFFH 
7501 JNZ $+3H 
40 INC AX 
59 POP CX . 1 
2201 AND АС, CL 
0008 RCR AL,1 
7303 JNB $+5H 
E90DF8 JMP ERROR 

REG$SAV(I) = SAVE; 

: ЗТАТЕМЕКТ # 280 

8A1E6400 MOV BL, I 
В700 МОУ ВН,ОН 
О1ЕЗ SHL ВХ, 1 
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281 
282 


285 


286 


287 


288 


289 


290 


4 


3 
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0987 А15000 MOV 
098А 89472Е MOV 
END; 
847: 
IF CHARsKBPER OR 1:13 THEN 


AX,SAVE 


; 
СНАК,10Н 


0980 803Е5А0010 СМР 
09с2 BOFF мо“ AL,OFFH 
09С 7401 JZ $+3Н 
0966 40 INC AX 
0967 50 PUSH АХ 2 
09С8 803E64000D CMP Т, ООН 
09СО BOFF MOV AL,OFFH 
09СЕ 7401 JZ $+3H 
0901 40 INC AX 
0902 59 POP CX è 
0903 0ҮС1 OR AL, CL 
0905 0008 ВСА AL, 1 
0907 7302 JNB 949 
09029 50 РОР ВР 
O9DA СЗ RET 

849: 

1-5 I +* 1; 

, 
09DB 8006640001 ADD I,1H 
END; 

0920 E93CFF JMP 8100 

8101: 

END; 
, 

0923 5D POP BP 
О9ЕЧ СЗ ВЕТ 

KBEXAMREG ENDP 

KB$MOVE: 


/9 IMPLEMENTS THE MOVE COMMAND. 


A DIFFERENCE WHEN READ BACK, 


KBMOVE PROC NEAR 
09Е5 55 РИЗН ВР 
09Е6 8BEC MOV ВР ,SP 

PROCEDURE; 


CALL KB$BLANK$ADDRSFIELD( 3); 





REGSAV, ВХ], АХ 


RETURN; 
STATEMENT # 282 


STATEMENT # 283 


STATEMENT # 284 


STATEMENT # 285 


STATEMENT # 286 


STATEMENT # 287 


PAGE 


/% DONE? %/ 


PROMPTS FOR 3 ARGUMENTS AND MOVES 
THE BLOCK OF MEMORY SPECIFIED BY ARG1-ARG2 TO ARG}. 
THEN ERROR. 9/ 


IF THERE ІЗ 


/9 FIRST ARGUMENT #/ 


STATEMENT # 288 


09Е8 8003 MOV AL, 3H 
09ЕА 50 PUSH AX ‚1 
09ЕВ Е800Е8 CALL KBBLANKADDRFTIELD 
CALL КВЗСЕТЗСНАЯ; 
; STATEMENT # 289 
09ЕЕ ES8AAFY CALL KBGETCHAR 


CALL KBSGETSADDR(@ARG1,CS, 3), 
09Е1 8D061A00 LEA AX,ARG1 
O9F5 1E PUSH DS ч 


STATEMENT # 290 


1 


32 
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09F6 
09F7 
О9РВ 
09FD 
09FE 


0А01 

0А06 

0408 
293 2 


ОАОВ 

0А00 

ОАОЕ 
294 2 


0А11 
295 2 


OA14 
0416 
ОА17 
0А19 
ОАТА 
ОА18 
ОАТЕ 
296 2 


0А21 

OA24 

0428 

OA2A 
298 2 


0А20 

0А32 

ОАЗЦ 
300 2 


ОАЗТ 

0439 

ОАЗА 
301 2 


ОАЗО 
зог г 


OA4O 
ОАЦЦ 
0445 
0446 
ОАЧА 
OA4C 
ОАЦО 
303 2 
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50 PUSH AX ; 2 
FF363E00 PUSH REGSAV+10H; 3 
8003 MOV AL, ЗН 
50 PUSH AX ; 4 
ЕВООЕВ CALL KBGETADDR 

IF CHAR<>KBCOM THEN GOTO ERROR; 


PAGE 


; STATEMENT # 291 


803Е5А0011 СМР CHAR,11H 
7403 Ј2 $+5H 
E9B1F7 JMP ERROR 


CALL KB$BLANK$ADDR$FIELD(2); 


/* SECOND ARGUMENT #/ 


; STATEMENT # 293 


8002 MOV AL, 2H 
50 PUSH AX ; 1 
E8ADF8 CALL KBBLANKADDRFIELD 
CALL KB$GET$CHAR; 
; STATEMENT # 291 
E887F9 CALL KBGETCHAR 
END$OFF = KB$GET$EXPR(ADDR$FIELD,2, BLANK); 
; STATEMENT # 295 
8001 MOV AL, 1H 
50 PUSH AX ; 1 
B102 MOV CL,2H 
51 PUSH ex ; 2 
50 PUSH AX 
E897F9 CALL KBGETEXPR 
A31800 MOV ENDOFF, AX 
IF END$OFF<ARG1.OFF THEN GOTO ERROR; 
; STATEMENT # 296 
A11800 MOV AX, ENDOFF 
3B061A00 CMP AX, ARG 
7303 JNB $+5H 
E98FF7 JMP ERROR 
ТЕ CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 298 
803E5A0011 CMP CHAR,11H 
7403 12 $+5Н 
E985F7 JMP ERROR 
CALL KB$BLANK$ADDR$FIELD(1); /* THIRD ARGUMENT #/ 
; STATEMENT # 300 
8001 MOV AL, 1H 
50 PUSH AX ; 1 
E881F8 CALL KBBLANKADDRFIELD 


CALL KB$GET$CHAR; 
; STATEMENT 
E85BF9 CALL KBGETCHAR 
CALL KB$GET$ADDR(@ARG3,ARG1,SEG,1); 


; STATEMENT 

8D061E00 LEA AX,ARG3 
1E PUSH DS 5 1 
50 PUSH AX ‚ 2 
FF361C00 PUSH ARG1+2H ; 3 
8001 MOV AL,1H 
50 PUSH AX ; 4 
ЕЗВІРА CALL KBGETADDR 

IF CHAR<>KBPER THEN СОТО ERROR; 


; STATEMENT 


# 301 


# 302 


# 303 
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305 


306 


308 


310 


311 


314 


315 
316 


317 


го го 


ОА50 803Е5А0010 СМР CHAR, 109 
0455 7403 42 $+5Н 
0457 Е962Р7 ]МР ERROR 
LOOP: 
; STATEMENT $ 305 
LOOP: 

MEMORY$ARG3 = MEMORYSARG1; 
OASA C41E1A00 LES BX,MEMORYARGIPTR 
0А5Е 268407 MOV AL, ES: MEMORYARG1! ВХ) 
0А61 СУТЕ1ЕОО LES BX,MEMORYARG3PTR 
0465 268807 MOV ES: МЕМОЯУАЯС 3’ ВХ), А, 


ТЕ MEMORY$ARG3<>MEMORY$ARG1 THEN GOTO ERROR; 
; STATEMENT # 306 


0А68  СЦ1ЕТЕОО LES BI,MEMORYARG3PTR 
ОА6С 268407 MOV AL, ES: MEMORYARG З” BX] 
OA6F C41E1A00 LES BX,MEMORYARGIPTR 
0А73 263407 CMP AL,ES: MEMORYARG1[ BX] 
0476 7503 JZ $+5H 

0478 E9H1P7 JMP ERROR 


ЇР ARG1.OFF = ЕМОЗОРР THEN RETURN; 
; STATEMENT # 308 


ОАТВ А11А00 MOV AX,ARG1 
ОДТЕ 3В061800 СМР АХ, ЕНООЕР 
04,82 7502 JNZ @55 
; STATEMENT # 309 
084 5D POP BP 
0485 СЗ RET 
055: 


ARG1.OFF = ARG1.OFF + 1; 
STATEMENT # 310 
0486 830614Ү0001 ADD ARG1,14 
АЯСЗ.ОРР з АВСЗ,ОРЕ + 1; 
; STATEMENT Ф 311 
0А88 83061Е0001 ADD ARG3,148 
GOTO LOOP; 
STATEMENT # 312 
ОА90 EBC8 ЈМР LOOP 
END; 
KBMOVE ENDP 


КВЗТНРИТ: 
; ФТАТЕМЕМТ # 314 
/9 PROMPTS FOR А PORT WORD IN THE ADDRESS FIELD. WHEN A COMMA 
IS ENTERED THE BYTE OR WORD IS DISPLAYED IN THE DATA FIELD. 
THIS MAY BE REPEATED FOR MULTIPLE READING OF THE PORT. PERIOD 
TERMINATES THE COMMAND. %/ 


KBINPUT PROC NEAR 
092 55 PUSH BP 
0493 8BEC MOV BP,SP 
PROCEDURE; 
DECLARE PORT WORD; 
CALL KBSBLANKSADDRSFPIELD(1); /8 PROMPT FOR PORT ?/ 
; STATEMENT # 316 

0495 8001 MOV АС, ТВ 
097 50 РИЗН АХ ..1 
0498 Е823Ғ8 CALL KBBLANKADDRFIELD 


CALL КВЗСЕТЗСНАЙ; 
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; STATEMENT # 317 


ОА9В ESFDF8 CALL KBGETCHAR 
18 2 PORT = KB$GET$EXPR(ADDR$FIELD,1, BLANK); /9 GET PORT NUMBER 1. 
: STATEMENT 4 318 
ОАЗЕ 8001 MOV AL,1H 
ОААО 50 PUSH AX : 1 
OAA1 50 PUSH AX ; 2 
OAA2 50 PUSH AX : 3 
ОДАЗ  ЕВОЕЕ9 CALL KBGETEXPR 
ОАА6 А35200 MOV PORT, АХ 
319 2 CALL KB$SOUT$WORD( PORT,ADDRSFIELD,9, BLANK); /® REMOVE PROMPT #/ 
; STATEMENT # 319 
ОАА9 FF365200 PUSH PORT ; 4 
ОААРр 8001 MOV AL,1H 
OAAF 50 PUSH AX ; 2 
ОАВО 8100 MOV CL,OH 
OAB2 51 PUSH cx ка 
ОАВЗ 50 PUSH AX ; 5 
OABY ЕВ5ЕР8 CALL KBOUTWORD 
320 2 LOOP: 
; STATEMENT # 320 
LOOP: 
ОАВ? 803E5A0011 CMP CHAR, 11H 
OABC 7403 JZ $+5H 
ОАВЕ  ЕЗЕВЕбБ JMP ERROR 
IF CHAR<>KBCOM THEN GOTO ERROR; 
322 2 IF WORD$MODE THEN 
; STATEMENT # 322 
ОАС1 А06000 MOV AL,WORDMODE 
ОАСЧ 0008 RCR AL,1 
ОАС6 7310 JNB 857 
323 2 CALL KB$OUT$WORD(INWORD(PORT),DATA$FIELD,O,NOBLANK); 
; STATEMENT # 323 
0АС8 8В165200 MOV DX,PORT 
OACC ED INW DX 
OACD 50 PUSH AX : 1 
ОАСЕ 8000 МОУ AL,OH 
OADO 50 PUSH AX ; 2 
ОАр1 50 PUSH AX : 3 
OAD2 50 PUSH AX : 4 
ОА03  ЕВЗЕЕ8 CALL KBOUTWORD 
ОА06 ЕВОС JMP 058 
057: 
ELSE 
324 2 CALL KB$OUT$BYTE( INPUT( PORT) ,0); 
: STATEMENT # 324 
0408 8В165200 МОУ ОХ, РОЯТ 
OADC EC IN DX 
OADD 50 PUSH AX e 
OADE 8000 MOV AL, ОН 
ОАЕО 50 PUSH AX : 2 
ОАЕ1 E8F1F7 CALL KBOUTBYTE 
058: 
325 2 CALL KB$GET$CHAR; 
; STATEMENT # 325 
ОАЕЦ E8SBNNF8 CALL KBGETCHAR 
326 2 IF CHAR=KBPER THEN RETURN; 
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328 
329 


330 


331 


332 


333 


334 


335 


337 


338 


333 


го 


; STATEMENT # 326 


ОДЕ? 803Е5А0010 CMP CHAR, 10H 
ОАЕС 7569 JNZ LOOP 
; STATEMENT # 327 
ОАБЕ 5D POP BP 
ОАЕР СЗ RET 
GOTO LOOP; 
END; 
KBINPUT ENDP 
KBSOUTPUT: 


; STATEMENT # 330 
/* PROMPTS FOR A PORT WORD IN THE ADDRESS FIELD AND A BYTE OR 
WORD DATUM IN THE DATA FIELD. THIS DATUM IS OUTPUT A SINGLE TIME 
TO THE SPECIFIED PORT. 2?/ 


KBOUTPUT PROC NEAR 
ОАРО 55 PUSH BP 
OAF1 8BEC MOV ВР, ЭР 


PROCEDURE; 
DECLARE (DATUM,PORT) WORD; 
CALL KBSBLANKS$ADDRSFIELD(1); /9 PROMPT FOR PORT %/ 
; STATEMENT # 332 | 


ОАЕЗ 8001 MOV AL,1H 
2АҒ5 50 PUSH AX . 1 
ОДЕб E8C5F7 CALL KBBLANKADDRFTELD 


CALL KBSGETS$CHAR; 
; STATEMENT # 333 
0АҒ9 E89FFS CALL KBGETCHAR 
PORT = KBSGETSEXPR(ADDRS$FIELD,1, BLANK); 
; STATEMENT # 334 


OAFC 8001 MOV AL, 1H 

OAFE 50 PUSH AX ; 1 
OAFF 50 PUSH AX ; 2 
овоо 50 PUSH AX ; 3 
ово! E8B1F8 CALL KBGETEXPR 
0804 A35600 MOV PORT,AX 


ТЕ CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 335 


0807 803Е5А0011 CMP CHAR,11H 
080С 7403 JZ $+5Н 
OBOE E9ABF5 ЈМР ERROR 
CALL KB$OUT$WORD(PORT,ADDR$FIELD,O,BLANK); /% REMOVE PROMPT %/ 
; STATEMENT # 337 
9811 FF365600 PUSH PORT ма 
0815 8001 MOV AL,1H 
0817 50 PUSH AX га 
0818 8100 MOV CL,OH 
ОЗТА 51 PUSH СХ # У 
0818 50 PUSH AX ; 4 
ОВІС БВЕбЕ? . CALL KBOUTWORD 
CALL KBSBLANK$DATA$FIELD(1); /9 PROMPT FOR DATUM ?/ 
; STATEMENT # 338 
ОВТЕ 8001 MOV AL,1H 
0821 50 PUSH AX ;: 1 
3822 E882F7 CALL KBBLANKDATAFTELD 


CALL KBSGETSCHAR; 
; STATEMENT # 339 
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А 
» (373 2, 


0825 Е873Ғ8 CALL KBGETCHAR 
340 2 LOOP: 
: STATEMENT # 340 
LOOP: 
0828 А06000 MOV AL,WORDMODE 
овгв DOD8 RCR AL, 1 
OB2D 7308 JNB 861 
ТЕ WORD$MODE THEN 
341 2 DATUM = KB$GET$EXPR(DATA$FIELD,1,NOBLANK); / GET DATUM WORT 
STATEMENT # 341 
ОВ2Е 8009 MOV АС, ОН 
0831 59 РОЗН АХ Л 
0832 8101 MOV CL,1H 
0834 51 РУЗН CX Е e 
0835 EBO8 ЈМР 618 
861: 
ELSE 
342 2 DATUM = KB$GET$EXPR(DATASBYTE,1,NOBLANK); /8 GET DATUM ВҮТ- , 
; STATEMENT # 342 
0837 ВОҒЕ MOV AL,OFFH 
0839 50 РОЗН АХ 5 4 
ОВЗА 8001 MOV AL,1H 
ОВЗС 50 PUSH AX га 
0830 8000 MOV AL,OH 
818: 
ОВЗЕ 50 РУЗН АХ г.в 
0840 E872F8 CALL KBGETEXPR 
0843 A35400 MOV DATUM, АХ 
343 2 ТЕ CHAR=KBCOL THEN GOTO ERROR; 
; STATEMENT # 343 
0846 803E5A0014 CMP CHAR,14H 
0848 7503 JNZ $+5Н 
0840 E96CF6 ]МР ERROR 
345 2 ТЕ WORD$MODE ТНЕМ 
: ЗТАТЕМЕНТ # 345 
0850 А06000 MOV AL,WORDMODE 
0853 0008 RCR AL, 1 
0855 730A JNB 064 
346 2 OUTWORD( PORT) = DATUM; 
; STATEMENT 4 345 
0857 88165600 MOV DX,PORT 
ОВ5В A15400 MOV AX, DATUM 
0855 EF OUTW DX 
OBSF 2808 JMP 965 
064: 
ELSE 
347 2 ОЈТРЏТ(РОВТ, = LOW( DATUM); 
| ; STATEMENT # 347 
0861 115500 MOV AX, DATUM 
0864 88165600 MOV DX,PORT 
0868 ЕЕ OUT DX 
@65: 
348 2 ТЕ CHAR=KBCOM THEN /* MULTIPLE OUTPUTS #/ 
; STATEMENT й 348 
0869 803E5A0011 CMP CHAR, 11H 
OB6E 7510 JNZ 266 


349 2 


00: 
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351 


352 


354 
355 


356 


291 


358 


359 


360 





0870 
0872 
0873 


0876 


0879 
0875 


0880 
0881 


0096 
0090 
0042 
О0А5 
00А7 
00АС 
OOAD 


ООАЕ 
0081 
0083 


0084 
0086 


0087 
ООВС 
00BD 
ООВЕ 
9060 
О0С 1 
00C3 
ООСЦ 


00С7 


SDK86 KEYPAD MONITOR 


CALL КВЗВГАМКЗОАТАЗЕТЕ:О( 1); 


; STATEMENT # 
AL,1H 
AX ; 1 
KBBLANKDATAFIELD 


; STATEMENT # 
KBGETCHAR 


IF CHAR<>KBPER THEN GOTO LOOP; 


8001 MOV 
50 PUSH 
Е831Е7 CALL 
CALL КВЗСЕТЗСНАЯ; 
E822F8 CALL 
803Е5А0010 СМР 
7548 УМ 2 
END; 
866: 
END; 
50 РОР 
C3 RET 
KBOUTPUT 


; STATEMENT # 
CHAR, 108 
LOOP 
; STATEMENT 1 
; STATEMENT і 
BP 
ENDP 


лаававааваавав оао ава ваа аа аа ава ааа ааа аа 


ы COMMAND DISPATCH MAIN PROGRAM LOOP ” 
вагававовав наа ааа наа соо ва ва даваа ааа / 


DISABLE; 
; STATEMENT # 
FA CLI | 
2E8E 169800 MOV 55, СЗ: @@STACK$FRAME 
ВС5000 MOV SP,@@STACK$OFFSET 
8 BEC MOV ВР, SP 
2E8E1E9A00 MOV DS,CS:@@DATAS$FRAME 
FB STI 
РА CLI 
OUTPUT(KB$STATS$PORT) = KBSINITSMODE; 
; STATEMENT 8 
BAEAFF MOV DX,OFFEAH 
8000 MOV АС, ОН 
БЕ OUT DX 
OUTPUT(KB$STAT$PORT) = KBSINITSSCAN; 
; STATEMENT В 
8039 MOV AL, 39H 
EE OUT DX 
CALL KBSDISPLAY( @KBSSIGNON,ADDR$FIELD,9); 
; STATEMENT % 
2E8D061F00 LEA АХ, СЗ: KBSIGNON 
ОЕ PUSH 65 . 1 
50 PUSH АХ 14 
8001 MOV AL,1H 
50 PUSH AX #72 
8000 моу АБ, ОН 
50 РУЗН АХ : 4 
ЕВВАО 1 CALL KBDISPLAY 


CALL КВЗОТЗРЬАУ ( @KB$VERSION, DATASFIELD,0O); 


2Е80062300 LEA 


; STATEMENT # 
AX,CS:KBVERSION 
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350 


351 


396 


353 


355 


356 


/% INIT 8279 #/ 


397 


358 


/% SIGN ОМ MESSAGE #/ 
359 


/% VERSION NUMBER #/ 
360 
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00СС ОЕ РОЗН 65 ; 1 
0060 50 PUSH АХ ; 2 
ООСЕ 8000 MOV AL,OH 
0000 50 PUSH AX ; 3 
0001 50 РОЗН АХ . y 
0002 E87CO1 CALL KBDISPLAY 
/* INITIALIZE USER'S REGISTERS #/ 
361 1 CS,SS,DS,ES,FL,IP = 0; 
; STATEMENT # 361 
0005 880000 MOV АХ,ОН 
0008 A33E00 MOV REGSAV+10H,AX 
OODB A34200 MOV REGSAV+14H, AX 
OODE A34000 MOV REGSAV+12H, AX 
00Е1 A34400 MOV REGSAV+16H, AX 
OOE4 A 34800 MOV REGSAV+1AH, АХ 
00Е7 A34600 MOV REGSAV+18H, AX 
362 1 SP = USER$INIT$SP; 
; ЗТАТЕМЕЧТ # 362 
OOEA С70636000001 MOV REGSAV+8H, 100H 
363 1 CALL INIT$INT$VECTOR(@INT$VECTOR(1),,INTERRUPTI$ENTRY); 
; ФТАТЕМЕНТ # 363: 
00Ғ0 80060400 LEA АХ, INTVECTOR+4H 
OOF4 ЛЕ PUSH DS ` :1 
00Ғ5 50 PUSH AX ; 2 
OOF6 B87D06 MOV AX, OFFSET( INTERRUPTIENTRY ) 
00Е9 50 PUSH AX 
OOFA Е80С06 CALL INITINTVECTOR 
364 1 CALL INIT$INT$VECTOR( @INT$VECTOR(2),. INTERRUPT 3$ENTRY); 
STATEMENT # 364 
OOFD 80060800 LEA AX, INTVECTOR+8H 
0101 1E PUSH DS ; 1 
0102 50 PUSH AX ; 2 
0103 В8ЕСОб MOV AX, OF FSET( INTERRUPT 3ENTRY ) 
0106 50 PUSH AX ; 3 
0107  Е8ЕЕС5 CALL INITINTVECTOR 
365 1 CALL INITSINT$VECTOR( @INT$VECTOR(3),.INTERRUPT3$ENTRY); 
; STATEMENT # 365 
010A 8D060C00 LEAS AX, INTVECTOR+0CH 
010E 1E PUSH DS ; 1 
ОТОЕ 50 РОЗН АХ : 2 
0110 B8ECO6 MOV AX, OFFSET( INTERRUPT3ENTRY) 
0113 50 PUSH AX ; 3 
0114 ЕВЕ205 CALL INITINTVECTOR 
366 1 BRK1$FLAG = FALSE; 
; STATEMENT # 366 
0117 С606580000 MOV BRK1FLAG, ОН 
367 1 MONITOR$STACKBASE = STACKBASE; /% SAVE MONITOR STACK VALUES %/ 
; STATEMENT # 367 
011C 8Ср0 MOV AX,SS 
ОТТЕ A31600 MOV MONITORSTACKBASE, AX 
368 1 MONITOR$STACKPTR = STACKPTR; 
; STATEMENT # 368 
0121 89Е0 MOV AX,SP 
0123 A31400 MOV MONITORSTACKPTR, AX 


369 1 СОТО AFTERSERROR; 
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9125 2810 JMP AFTERERROR 
370 1 NEXT$COMMAND: 
: STATEMENT # 370 
/% THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH ІЗ A SEPARATE PROCEDURE, 8/ 
NEXTCOMMAND: 
0123 2£80061300 LEA АХ, С5: КВСММОРМТ 
0120 95 PUSH 05 20 
0122 50 PUSH AX : 2 
0122 8001 MOV AL, ТВ 
0131 59 PUSH AX 53 
0132 8000 MOV АБ, ОН 
0134 50 РУЗН АХ : 4 
0135 281901 CALL KBDISPLAY 
CALL KBSDISPLAY( @KBSCMNDS$PMT,ADDRSFIELD,O); 
371 1 AFTERSERROR: 
; STATEMENT # 371 
AFTERERROR: 
CALL KB$GETS$CHAR; 
0138 £86002 CALL KBGETCHAR 
372 1 CALL КВУВЬАНКЗАРрОН3ЕТ2 1, 0( 0); 
; ЗТАТЕМЕНТ # 372 
0138 8000 MOV AL,OH 
0130 50 PUSH AX а: 3 
0132 237001 CALL KBBLANKADDRFTIELD 
373 1 CALL KB$BLANK$DATA$FIELD(O); 
; STATEMENT # 373 
0141 8000 MOV AL,OH 
0143 50 PUSH AX . 4 
0144 £86001 CALL KBBLANKDATAFTELD 
374 1 ЇР (LAST$COMMAND:=CHAR)>O9OH THEN GOTO ERROR; 
; STATEMENT # 374 
0147 A05A00 MOV AL,CHAR 
ОТЧА  А26100 MOV LASTCOMMAND,AL 
0140 3С09 CMP АС, ЭН 
0148. 7768 ЈА ERROR 
376 1 WORDSMODE = FALSE; 
; STATEMENT # 376 
0151  С606600000 MOV НОВОМООЕ , ОН 
377 1 00 САЗЕ СНАН; 
; ЗТАТЕМЕМТ # 377 
0156 8A1E5A09 MOV BL, CHAR 
015А 8700 MOV ВН, ОН 
0156 0753 SLL ВХ, 1 
0155 2Е?ЕА7?9501 JMP С5:9102° ВХ) 
378 2 CALL КВЗЕХАМЗМЕМ; 
379 а CALL ХВЗЕХАМЗНЕО; 
; STATEMENT # 379 
871: 
0163 689007 CALL KBEXAMREG 
0156 2841 ЛИР АРТЕВСОММАМО 
330 2 CALL 68339: 
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; STATEMENT # 369 


; STATEMENT # 380 
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381 


382 
383 
384 


385 


389 


393 


397 


398 


юм 


0168 
0168 


0160 
0170 


0172 
0175 


0177 


0170 


017Е 


0181 


0186 


0189 


0188 


0190 


0193 


0195 
0197 
0199 
0198 
0190 
ОТ9Е 
01А1 
ОТАЗ 
ОТА5 
01А7 
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E8BFO5 CALL KBGO 
EB3C JMP AF TERCOMMAND 
CALL KB$SINGLES$STEP; 
; STATEMENT # 381 
87 3: 
E84906 CALL KBSINGLESTEP 
ЕВЗТ ЈМР AFTERCOMMAND 
CALL KB$INPUT; 
CALL KB$OUTPUT; 
CALL KB$MOVE; 
; STATEMENT # 384 
076: 
587008 CALL KBMOVE 
EB32 JMP AFTERCOMMAND 
DO; WORD$MODF = TRUE; CALL КВ$ЕХАМ$МЕМ; END; 
877: 
: STATEMENT # 386 
C6066000FF МОУ WORDMODE, OF FH 
: STATEMENT й 387 
@19: 
E86106 CALL KBEXAMMEM 
; STATEMENT 4 388 
EB28 | ЈМР AFTERCOMMAND 
DO; WORD$MODE = TRUE; CALL KB$INPUT; END; 
878: 
; STATEMENT # 390 
С6066000ЕҒ MOV WORDMODE, OF FH 
; STATEMENT # 391 
821: 
280909 CALL KBINPUT 
; STATEMENT й 392 
ЕВІЕ ЈМР AFTERCOMMAND 
DO; WORD$MODE = TRUE; CALL KB$OUTPUT; END; 
079: 
; STATEMENT # 394 
С6066000ҒҒ MOV WORDMODE,OFFH 
; STATEMENT # 395 
025: 
E85D09 CALL KBOUTPUT 
; STATEMENT # 395 
ЕВ14 ЈМР AFTERCOMMAND 
END; 
; STATEMENT # 397 
@102: 
7001 ри 019 
6301 ри 871 
6801 DW 872 
6D01 DW 873 
8601 DW 821 
9001 DW 825 
7201 ри 876 
7701 DW 877 
8101 DW 978 
8801 ри 279 
AFTER$SCOMMAND: 


; STATEMENT # 398 
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399 


500 


403 


го 


ОТА9 
ОТАС 
ОТАЕ 
0183 
0185 
0186 


0189 


ОТ ВС 
ОТВЕ 
01С1 
0106 
01СВ 
01CC 
01CD 
01CF 
9100 
0102 
0103 


0105 
0108 
0109 


0106 


01DF 
01Е2 
ОТЕЦ 
0129 
01ЕС 


01ЕЕ 
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AFTERCOMMAND: 
BC5000 MOV SP,8@STACK$OFFSET 
8BEC MOV BP,SP 
2E8E1E9A00 MOV 05,05:88рАТАЕНАМЕ 
8000 MOV АС, ОН 
50 РОЗН АХ ; 1 
E8EE00 CALL KBBLANKDATAFIELD 
CALL KB$BLANK$DATAS$FIELD(0); 
GOTO МЕХТЗСОММАНО ; 
; STATEMENT # 399 
Е96СҒЕ ЈМР МЕХТСОММАКО 
ERROR: 
; STATEMENT # 400 
/е THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND WILL 
OUTPUT THE ERROR MESSAGE TO THE DISPLAY AND THEN JUMP TO 
"AFTERSERROR' TO GET ANOTHER COMMAND. %/ 
ERROR: 
BC5000 MOV ЗР , ВО ЗТАСКЗОРЕЗЕТ 
8 ВЕС МОУ ВР,5Р 
2Е8Е1Е9А00 MOV 05 ,С5: @@DATA$FRAME 
2Е8р062800 LEA AX,CS:KBERRMSG 
ОЕ PUSH cs а 
50 PUSH AX = <2 
8001 MOV AL,1H 
50 PUSH AX 5 3 
8000 MOV АС, ОН 
50 PUSH AX ; 4 
Е87800 CALL KBDISPLAY 
CALL KBSDISPLAY( @KB$SERRSMSG ,ADDRS$FIELD,O); 
CALL KB$BLANKS$DATA$FIELD(0); 
; STATEMENT # 401 
8000 MOV АБ, ОН 
50 РОЗН АХ : 1 
ЕЗСВОО CALL KBBLANKDATAFTIELD 
СОТО AFTERSERROR; 
; STATEMENT # 402 
EX9SOFF ЧМР AFTERERROR 
AFTERSINTERRUPT: 
; STATEMENT # 403 
из THIS ROUTINE CHECKS FOR THE LAST COMMAND WHEN THE MONITOR IS 
REENTERED VIA THE INTERRUPT VECTOR, %/ 
AFTERINTERRUPT: 
ВС5000 MOV 5Р,ЗӨ5ТАСКЗОЕЕЗЕ”Т 
38ЕС MOV BP,SP 
2E8E1E9A00 MOV DS,CS: 449DATASFRAME 
405800 MOV AL,BRKISLAG 
0008 АСА AL, 1 
827; 
7 389 JNB AFTERCOMMAND 
IF BRKISFLAG THEN 
00, 


MEMORY3BRK1 = BRKISSAVE; 
; STATEMENT 9 405 
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408 
409 


410 


414 


w ~ 


са Nw 


01Ғ0 
ОТЕЗ 
О1Е7 


ОТЕА 


01ҒЕ 
0202 
0205 
0206 
0209 
0200 
020Е 
0212 
0214 
0216 
0218 
0219 
021А 
0210 
021F 


0221. 


0225 
0226 
0228 
0226 
0220 
022F 
0231 
0233 
0231 
0235 
0237 
0239 


023B 


0240 
0245 
0246 
0247 
0249 
O24A 
O24B 


024E 
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А05900 MOV AL, BRKISAVE 
C4182200 LES BX,MEMORYBRKIPTR 
268807 MOV ES:MEMORYBRK1_ BX],AL 


BRKI$FLAG = FALSE; 
; STATEMENT # 406 
C606580000 MOV BRKIFLAG,OH 
IF ((ІР-1) AND OOOFH)=(BRK1.0FF AND OOOFH) AND 
; STATEMENT # 407 


A14600 MOV AX, REGSAV+18H 
836801 SUB AX, АН 
50 PUSH AX ; 1 
250F00 AND АХ,ОЕН 
8В0Е2200 MOV CX, ВЕК 1 
51 PUSH ех : 2 
81E10F00 AND CX,OFH ` 
3ВС1 СМР АХ, СХ 
ВОЕЕ MOV AL, ОЕЕН 
7401 42 $+3H 
40 ІМС АХ 
SA POP DX : 2 
8756FE XCHG DX,.BP]-2H; 1 
B104 MOV CL,4H 
D3EA SHR DX, CL 
03163E00 ADD DX,REGSAV+10H 
5B POP BX 5.3 
ОЗЕВ SHR BX,CL 
031E2400 ADD BX,BRK1+2H 
50 PUSH AX ; 4 
3BD3 CMP DX, BX 
BOFF MOV AL,OFFH 
7401 41 $+3H 
40 INC AX 
59 POP CX “1 
2201 AND ñL СЕ 
0008 RCR AL, 1 
7383 JNB 827 
(SHR(IP-1,4)+CS)2s(SHR(BRK1.,0FF,4)+BRK1.SE3) THEN 
00; 
IP = IP « 1: 


; ЗТАТЕМЕМТ й 409 

832E460001 SUB REGSAV+18H,1H 
CALL KB$DISPLAY(@KB$BRK1,DATA$FIELD,0); 
; STATEMENT # 410 


2Е8р063 300 LEA А.Х, СЗ: КВВЕК 1 
ОЕ PUSH CS # 1 

50 PUSH AX ; 2 

В000 MOV АБ, ОН 

50 PUSH AX ; 3 

50 PUSH AX ; 4 

E80300 CALL KBDISPLAY 


GOTO НЕХТЗСОММАНО ; 
; STATEMENT # 411 
EQ9D7FE JMP NEXTCOMMAND 
END; 
END; 
GOTO AFTER$COMMAND; 
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PL/M-86 COMPILER SDK86 KEYPAD MONITOR PAGE 44 


415 1 END MONITOR; /% END OF MODULE #/ 
EOF 
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CROSS@eREFERENCE LISTING 


DEFN ADDR SIZE 


NAME, ATTRIBUTES, AND REFERENCES 


5 ADDRFIELD LITERALLY 
16 32 108 113 119 205 229 272 295 
313 319 334 337 359 379 300 
398 O1A9H AFTERCOMMAND LABEL 
172 411 
371 0138H AFTERERROR LABEL 
369 402 
403 01ФЕН AFTERINTERRUPT LABEL 
180 
106 0000H 4 ARG STRUCTURE BASED(PTR) 
107 108 112 113 
9 ООТАН 4 ARG! STRUCTURE AT 
225 229 257 258 290 296 302 308 310 
9 ООТЕН 1 ARG3 STRUCTURE AT 
302 311 
34 0006Н 1 B BYTE PARAMETER AUTOMATIC 
35 a” 38 
6 BLANK LITERALLY 
46 108 113 119 229 295 318 319 334 
БЕ ki 
62 0004Н 1 BLANKING BYTE PARAMETER AUTOMATIC 
63 76 87 9 6 
41 0004Н 1 BLANKING BYTE PARAMETER AUTOMATIC 
42 46 
13 ЕНҒЕҒӨН 2 BLOCK8089 | WORD AT INITIAL ABSOLUTE 
13 ЕНЕЕЕВН 4 BLOTK8089PTR POINTER АТ INITIAL ABSOLUTE 
11 ЕНҒЕҒОН 1 80011 BYTE ARRAY(1) AT INITIAL ABSOLUTE 
11 FHFFF1H 2 BOOT2 WORD ARRAY(1) AT INITIAL ABSOLUTE 
11 FHFFF3H 2 B00T3 WORD ARRAY(1) AT INITIAL ABSOLUTE 
12 0000Н 4 BOOTY WORD ARRAY(2) DATA 
10 BP LITERALLY 


150 
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BREAKINST 


BRK1 


ВАКТЕСАС 


BRKISAVE 


CHAR 


19 COPYRIGHT 


6 
9 0022Н 
5 0058Н 
5 930598 
5 005АН 
4 00088 
183 
10 
9 0026Н 
6 
6 
331 0054H 
105 9006H 
5 0058Н 
15 0000Н 
10 


CORRECTION 


CS 


CSIP 


DATABYTE 


DATAFIELD 


DATUM 


DEFAULTBASE 


DISP 


DISPLAY 


DOUBLE 


DS 


LITERALLY 
198 199 
STRUCTURE AT 
194 407 
BYTE 
201 366 403 
BYTE 
197 405 
BYTE 
60 67 74 
100 109 114 
214 226 234 
275 278 282 
343 348 352 
BYTE ARRAY(19) 
LITERALLY 
185 
LITERALLY 


121 124 225 


STRUCTURE АТ 


120 121 128 
217 
LITERALLY 
74 85 94 
LITERALLY 
28 39 231 
410 
WORD 
341 342 346 
WORD PARAMETER 
106 107 
BYTE ARRAY(3) 
36 37 38 


ЕТО. 271 272 


BYTE 
20 


BUILTIN 
84 


LITERALLY 
361 


BASED( PTR) 


406 
73 89 
124 163 
236 240 
291 298 
374 377 

DATA 
290 407 
165 166 
247 342 
239 273 

JAT 
AUTOMATIC 
39 цц 
АНВАХ (1) 


83 
179 
248 
303 


49 


Зу 
189 
254 
320 


207 


343 


50 


РАСЕ 46 
97 99 
195 203 
265 267 
326 335 
208 216 
341 362 
54 269 
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400 


62 


41 


153 


174 
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0018H 


01ВСН 


0006H 


0008H 


0008H 


0064H 


005FH 


0709H 


0088H 


0006H 


067DH 


ОбЕСН 


ОООЦН 


0000H 


2 


33 


12 


20 
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ENDOFF 


ERROR 


ES 


FALSE 


FIELD 


FIELD 


FIELD 


FL 


GOCOMMAND 


1 


INITINTVECTOR 


INITINTVECTORCODE 


INITINTVECTORCODEPTR 


INPUT 


INTERRUPTIENTRY 


INTERRUPT3ENTRY 


INTROUTINEOFFSET 


INTVECTOR 


WORD 
295 296 308 
LABEL 
72 81 101 115 171 196 200 204 
227 241 244 249 252 266 279 292 
299. 304 307 321 336 349 375 
LITERALLY 
361 
LITERALLY 


366 376 406 


BYTE PARAMETER AUTOMATIC.. 
15 16 


BYTE PARAMETER AUTOMATIC 
63 69 74 76 85 87 94 95 


BYTE PARAMETER AUTOMATIC 
42 54 


LITERALLY 
159 167 209 218 361 


LITERALLY 


BYTE 
267 270 271 273 280 282 284 


BYTE 
19 20 21 43 4y 8 49 50 
134 135 145 147 


PROCEDURE STACK=000EH 
363 364 365 


BYTE ARRAY(15) DATA 
183 


WORD DATA 
184 


BUILTIN 
57 60 324 


PROCEDURE INTERRUPT(1) STACK=0034H 
363 


PROCEDURE INTERRUPT(3) STACK=0006H 
364 365 


WORD PARAMETER AUTOMATIC 
183 185 


POINTER АННАҮ(5) 


PAGE 


239 
297 


97 
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182 


30 


26 


105 


56 


COMPILER 


0006H 


02BEH 


02А7Н 


00374 


00338 


0018Н 


0251Н 


0028Н 


ОТЕОН 


0903H 


002FH 


0501H 


039BH 


23 


23 


86 


79 


26 
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INTVECTORPTR 


INWORD 


LP 


KBBLANKADDRFIELD 


KBBLANKDATAFIELD 


KBBLANKS 


KBBRK1 


KBCMNDPMT 


KBCOL 


KBCOM 


KBDATAPORT 


KBDISPLAY 


KBERRMSG 


KBEXAMMEM 


KBEXAMREG 


KBEXEC 


KBGETADDR 


KBGETCHAR 


363 36% 365 


POINTER PARAMETER AUTOMATIC 
183 18% 185 


BUILTIN 
323 


LITERALLI 
119 120 215 361 407 409 


PROCEDURE STACK=z0010H 
126 191 223 263 288 293 300 316 
372 


PROCEDURE STACK=0010H 
127 192 206 338 350 373 398 401 


BYTE ARRAY(4) DATA 
28 32 


BYTE ARRAY(4) DATA 
410 


BYTE ARRAY(4) DATA 
370 


LITERALLY 
97 109 11% 343 


LITERALLY 
97 124 163 189 214 226 236 240 
275 278 291 298 320 335 348 


LITERALLY 
23 60 


PROCEDURE STACK=000AH 
28 32 39 54 69 205 272 359 
370 400 410 


BYTE ARRAY(4) DATA 
400 


PROCEDURE STACK20030H 
378 387 


PROCEDURE STACK=0024H 
379 


BYTE ARRAY(4) DATA 
205 


PROCEDURE ЗТАСК-002СН 
128 194 225 290 302 


PROCEDURE 5ТАСК-0002Н 


PAGE 
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62 


187 


311 


287 


34 
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03B5H 


O72AH 


0Х92Н 


09Е5Н 


0205Н 


OAFOH 


0315Н 


ООЦВН 


143 


94 


173 


64 


146 


134 


28 
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KBGETEXPR 


KBGO 
KBINITMODE 
KBINITSCAN 
KBINPUT 
KBINRDY 
KBMINUS 
KBMOVE 
KBOUTBYTE 
KBOUTPUT 


KBOUTWORD 


KBPER 


KBPLUS 
KBREG 
KBREGKEY 
KBREGPMT 


KBSTGNON 


70 77 88 122 111 
264 274 289 294 301 
191371 

PROCEDURE WORD STACK=0020H 

108 113 239 247 277 

342 

PROCEDURE STACK=0034H 
38. 

LITERALLY 
357 

LITERALLY 
358 

PROCEDURE 58ТАСК-0024Н 
382 391 

LITERALLY 
57 

LITERALLY 
99 

PROCEDURE STACK=0030H 
384 

PROCEDURE STACK=0012H 
75 86 95 122 232 

PROCEDURE STACK=0024H 
383 395 

PROCEDURE STACK=0016H 

76 87 95 119 229 
337 

LITERALLY 
97 128 170 195 203 
275 278 282 303 325 
LITERALLY 
64 91 99 
BYTE ARRAY(28) DATA 
270. дз 
LITERALLY 
67 
BYTE ARRAY(4) DATA 


59 


BYTE ARRAY(4) АТА 


359 


*23 


317. 


295 


324 


234 
352 
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212 


118 


340 


320 


COMPILER 


07В9Н 


0550Н 


0023H 


0061H 


00384 


ОАБАН 


овган 


ОАВТН 


0000H 


ООТАН 


0000H 


001ЕН 


0000H 


00229 


00009 


0026H 


0000H 
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39 KBSINGLESTEP 


KBSTATPORT 


101 KBUPDATEIP 


4 КВУЕВЗІОМ 


1 LASTCOMMAND 


16 LED 


LOOP 


LOOP 


LOOP 


LOW 


1 MEMORYARG1 


ü MEMORYARGIPTR 


1 MEMORYARG3 


ü MEMORYARG3PTR 


1 МЕМОВТВАК! 


Ч MEMORYBRKIPTR 


1 MEMORYCSITP 


ü MEMORYCSIPPTR 


2 MEMORYUSERSTACK 


PROCEDURE 5ТАСК-0034Н 
381 


LITERALLY 
17 18 oT 59 357 358 


PROCEDURE STACK=0030H 
162 188 213 


BYTE ARRAY(4) DATA 
360 


BYTE 
160 37% 


BYTE ARRAY(16) DATA 
37 38 44 


LABEL 
312 


LABEL 
323 


LABEL 
328 


BUILTIN 
72 86 95 250 251 347 


BYTE ВАЗЕО(МЕМОНХАВСЯРТЯ) ` 
232 250 251 305 305 


POINTER 
9 231 232 242 243 #250 251 


BYTE BASED( MEMORYARG3PTR) 


305 306 
POINTER 
9 305 306 


BYTE BASED( МЕМОНҮВНКЇРТН) 
197 198 199 405 


POINTER 
9 197 198 199 405 


BYTE BASED(MEMORYCSIPPTR) 


122 
POINTER 
9 122 


WORD BASED( MEMORYUSERSTACKPTR ) 
132 135 147 150 


305 


РАСЕ 


306 


50 
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370 


106 


63 


105 


002АН 


0000H 


009CH 


0016H 


0014Н 


0128H 


0000H 


0000H 


0000H 


0000H 


0000H 


0000H 


0000H 


0063H 


0056H 


0052H 


ОООЦН 


437 


SDK86 KEYPAD MONITOR 
MEMORYUSERSTACKPTR 
MEMORYWORDARG1 


MONITOR 


MONITORSTACKBASE 
MONITORSTACKPTR 
NEXTCOMMAND 
NOBLANK 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 

OFF 

OPER 

OUTPUT 

OUTWORD 

PORT 

PORT 


PROMPTS 


POINTER 
9 132. 135 197 150 


WORD BASED(MEMORYARG1PTR) 
231 242 243 


PROCEDURE STACK=0050H 


WORD 

157 178 367 
WORD 

156 177 368 
LABEL 

399 411 
LITERALLY 


231 239 247 213 277 323 341 342 


WORD MEMBER(USERSTACK) 
133 136 139 144 146 149 151 158 


WORD MEMBER(CSIP) 
120 165 207 216 


WORD MEMBER( BRK1) 
407 


WORD МЕМВЕВ ( АКСЗ) 
311 


WORD МЕМВЕВ(АВСТ) 
229 257 258 296 308 310 


WORD MEMBER( VECTOR) 
185 


WORD MEMBER( ARG) 
108 112 113 


BYTE 
64 91 100 


BUILTIN 
17 18 23 59 347 357 358 


BUILTIN 
346. 


WORD 
334 337 346 347 


WORD 


318 719 323 124 


BYTE PARAMETER AUTOMATIC 
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62 


41 


3% 


30 


26 


105 


14 


10 


10 


141 


142 


142 


262 


63 


131 
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0006H 


0006H 


ОООЧН 


00048 


0008H 


0004Н 


0008H 


0008H 


0067H 


002ЕН 


0605H 


0072H 


00044 


0050Н 


ООЧАН 


05858 


0002H 


0002H 


11 


28 


95 


22 


80 
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PROMPTS 


PROMPTS 


PROMPTS 


PROMPTS 


PROMPTS 


PROMPTS 


PTR 


PTR 


REGORD 


АЕСЗАУ 


RESTOREEXECUTE 


RESTOREEXECUTECODE 


RESTOREEXECUTECODEPTR 


SAVE 


SAVE 


SAVEREGISTERS 


SEG 


SEG 


132 135 
155 166 
#25 213 
86 87 


106 108 113 
BYTE PARAMETER AUTOMATIC 
63 69 73 76 86 
BYTE PARAMETER AUTOMATIC 
42 54 
BYTE PARAMETER AUTOMATIC 
35 39 
BYTE PARAMETER AUTOMATIC 
31 32 
BYTE PARAMETER AUTOMATIC 
27 28 
BYTE PARAMETER AUTOMATIC 
15 21 
POINTER PARAMETER AUTOMATIC 
106 107 108 112 113 
POINTER PARAMETER AUTOMATIC 
15 20 
BYTE ARRAY(11) DATA 
135: 147 
WORD ARRAY( 14) 

73 119 120 121 128 
143 144 147 150 159 
208 209 216 217 218 
361 362 407 409 

PROCEDURE STACK=0008H 

161 168 210 219 

BYTE АННАҮ(22) DATA 
142 
WORD DATA 
151 
WORD 
277 280 
WORD 
FS та 76 82 84 
PROCEDURE STACK=0002H 
158 179 
WORD МЕМВЕВ(05ЕНЗТАСК) 
138 143 191 155 176 
WORD MEMBER( CSIP) 


96 


138 
167 
280 


92 


PAGE 


139 
207 


290 


93 


52 
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106 


10 


10 


11 


183 
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0002H 


0002H 


0002H 


0002H 


0002H 


0062H 


002АН 


ООООН 


1 
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SEG 


SEG 


SEG 


SEG 


SEG 


SHL 


SHR 


SP 


55 


SSCOMMAND 


STACKBASE 


STACKPTR 


STARTADDR 


STEPTRAP 


TRUE 


USERINITSP 


USERSTACK 


VECTOR 


121 166 194 


WORD MEMBER( BRK1 
107 


208 


) 


WORD MEMBER(ARG3) 


WORD МЕМВЕВ (АВС 1 
302 


) 


WORD MEMBER( VECTOR) 


184 


WORD MEMBER( ARG) 
107 112 


BUILTIN 
84 


BUILTIN 
37 цц 407 


LITERALLY 
144 


LITERALLY 
143 361 


LITERALLY 
160 


BUILTIN 
155 157 176 


BUILTIN 
154 156 175 


LITERALLY 
11 12 


LITERALLY 
159 167 209 


BYTE 
20 22 23 


LITERALLY 
66 201 228 


LITERALLY 
362 


STRUCTURE AT 
133 136 138 
154 155 175 


178 


177 


218 


268 
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367 


368 


336 390 394 


STRUCTURE BASED(INTVECTORPTR) 
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222 OO4EH 
63 OO4CH 
41 000АН 

5 0060H 


MODULE INFORMATION: 


CODE AREA SIZE 


1 


WORDMODE 


VARIABLE AREA SIZE 


з 
СОНЗТАНТ AREA SIZE з 
з 
з 


МАХІМОМ STACK SIZE 


865 LINES READ 


0 PROGRAM ERROR(S) 


END OF Р,/М-86 COMPILATION 


0B82H 
ООООН 
0065H 
0050H 
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184 


WORD 
239 


WORD 
65 


WORD 
2 


BYTE 
230 
394 


185 


242 


92 


243 


93 


247 


95 


250 


96 


PARAMETER AUTOMATIC 


цц 


237 


256 


322 


340 


291 


98 


376 


386 


390 


54 
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ISIS-II PL/M-86 V1.1 COMPILATION OF MODULE MONITOR 
OBJECT MODULE PLACED IN :F1:SERTAL.OBJ 
° COMPILER INVOKED BY: PLM86 :F1:SERIAL.PLM LARGE OPTIMIZE(2) PAGEWIDTH(95) 


қ $TITLE(*SDK86 SERIAL MONITOR’) 
SNOINTVECTOR 


АНЫЗ 555525541554 40045: йї)90:0:2:0:0 0(0:0: 0 00:0::й::ї ДААД, 
ДИАЛ ЛЛ 55 ЛЛ 5555 555555555555 Қ 0 0 инока 


50К-86 MONITOR, V1.2 
06 AUGUST 1979 


(С) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. Nu PART 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED ІМ A RETRIEVAL SYSTEM, OR TRANSLATED INTO Y 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHAN.CAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 


ЗАЛАЛ ЛЛ ЛД RRR RRR RRR RRR 5 Да ЛАДА ДАЛ ДА АЙЯ: 
ооо ии ааа ааа вољан нивои ни 


ABSTRACT 


~ THIS PROGRAM IS THE ROM BASED SERIAL MONITOR FOR THE 50К-86. IT 
PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 
EXAMINE/MODIFY MEMORY AND REGISTERS, CONTROL PROGRAM EXECUTION, 
AND LOAD/SAVE PROGRAMS. 


ENVIRONMENT 


THE SDK SERIAL MONITOR COMMUNICATES WITH THE USER VIA AN INTERACTIVE 
TERMINAL (TTY,CRT) ATTACHED TO THE SERIAL PORT. 


PROGRAM ORGANIZATION 


THE PROGRAM Т5 DIVIDED INTO 1 DATA AND 2 CODE MODULES: 


1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 
| 2. СОММОМ ROUTINES. LOWER LEVEL PROCEDURES 
ы 3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 


CALLING "АРН 


, >>COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN A 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 

AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 

POINTERS TO THE 50К-86 29920 ADDRESS SPACE ARE IMPLEMENTED WITH 


РО/М-86 COMPILER 


е / 


/% 
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POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 


MONITOR: DO; /% BEGINNING OF MODULE %/ 


110200000 00 0 00 0 8 ваа ооо ооо ооо ооо ааа аа ва ва тегов ее т ааа ае RES 
211020020000 50 0 120 0 0 00 аааавааааазавававаа авааанааваававаа аа ава ваа 


GLOBAL DATA DECLARATIONS MODULE 


PAGE = 


THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 


LITERALS (EQUATES). 


MODULE ORGAINIZATION 


THE MODULE Т5 DIVIDED INTO 5 SECTIONS: 


1. UTILITY SECTION 
2. 1/0 SECTION 
3. MEMORY ARGUMENTS SECTIONS 
4. REGISTER SECTION 
5. BOOT AND 8089 SECTION 
./ 


/ + 102 0 та ве в еее тете ваа 


е UTILITY SECTION е 
наа навававоавава ва ааа / 


DECLARE 
INT$VECTOR(5) 
DECLARE 
MONITORSSTACKPTR WORD, 
MONTTORS$STACKBASE WORD; 
DECLARE 
COPYRIGHT(*®) BYTE DATA (" (С) 1 
DECLARE 


POINTER; 


GLOBAL FLAGS, VARIBLES, EQUATES 

1/0 PORTS,MASKS,AND SPECIAL CHARS 
STRUCTURES FOR POINTERS 

USER REGISTER SAVE AREA 

BOOTSTRAP AND 8089 DESCRIPTOR 


/9 INTERRUPT VECTORS */ 


978 INTEL CORP'); 


BRKI$FLAG BYTE, /% TRUE ІР BREAK SET #/ 

BRKI$SAVE BYTE, и” INST BREAK SAVE #/ 

CHAR BYTE, /* ONE CHAR LOOK AHEAD */ 

CHECK$SUM BYTE, /% PAPER TAPE CHECKSUM %/ 

1 BYTE, /% INDEX %/ 

END$OFF WORD, /% END OFFSET ADDRESS %/ 

WORD$MODE BYTE, /% WORD MODE FLAG */ 

LAST$COMMAND BYTE; /9 LAST COMMAND SAVE %/ 
DECLARE 

TRUE LITERALLY 'ОБЕН", 

FALSE LITERALLY "ОООН", 

BREAK$INST LITERALLY "ОССН?, /% BREAKPOINT INST %/ 

STEP$TRAP LITERALLY "0100Н", /% SS TRAP FLAG MASK */ 

USER$INITS$SP LITERALLY '100Н', 79 USER STACK INITIAL ?/ 

СОЗСОММАМО LITERALLY "2", /% GO COMMAND CODE #/ 


SS$COMMAND LITERALLY "3", 
STANDARD$LEN LITERALLY "16" 
МАХЗОЕЦАХ 

DECLARE 


/9 SINGLE STEP CODE ?/ 
У /% PAPER ТАРЕ DATA REC LEN %/ 


LITERALLY "10000"; /% DELAY FOR PAPER ТАРЕ %/ 


Е 


‘JLAG 8Я144415241НОНЗН 135У8 415241ХМОНЗИ 
“\Н14$41$2%$АНОИЯИӘ) LV 

( аВОМ 035 "Жаном 330) 38П120815 4152 

/и ОНОМ 41 З SO џ/ “431К174 Н1498415241ХНОНЗиИ 


‘SLAG на | мне 81ХМОНЗИН G3SV8 |(3884ХНОНЗИ 
“сила  : иназлноизие) LY 

(аном 035 ‘аном 330) 380100815 1988 

/ж | 18104ХҮЗНЯ ь/ “34318104 314$ | ЯНЕ ЗАНОИЯЙ 


“31184 Н14$%ОНУ$АНОИЯИ 03548 ЕОНУ ФЛ. WIN 
“(514 608Ү 1НОНЗНӨ ) LY 

(даном 93$ ‘аном 440) зипіопні5 ЕОНУ 

/а £ ІКЗИПОНУ а/ ‘USLNIOd ніафюонувфхномзи 


‘аном ніафіонувфхноняи G3SV8 | ОНУФОНОМФЛНОИЗИ 

‘FLAG ULdSLOUV$SAYOWSW ЗСУВ LOUVSXYOWSW 
“(ULdSLOUVSXYONSWA) LV 

(аном 245 ‘аном 440) 3НП120815 1587 

Ия | ІКЗИПОНУ ь/ “48415104 Н148| ОНУФАНОИЗИ 


ЖҮЗІ ЗІ 1557. 
# К011236 ЈАЗАПОНУ ХНОИЗИ 


зоо као носа ооо 
/и 32985 НО ЯКУ"Я «/ Ног, Х717783117 1859 
/* 1333 3117 #/ ‘HYO,  Х777483117 315% 
/а НИПІЗН ЗОУІННУО «/. ‘НОО, 2Х77783117 4251 
/ + ЧЈУЧ NVOS SWOL в/ > Н6Е, Х711783117 МУ2$$11М1$6Я 
/ь 1003201 АЗУ г “34002КНЗ 
дама 1337 '118-8 8 «/ “4НОО, Х77783117 ЗФОНФІЇКІЗЯХМ 
/а 1808 VLVG «/ " ,Н8343430, Х717у983117 1804%уУ1У4%683 
/« 1804 GNYWWOO/SNLYLS ь/ “4НҮЗ440, Х77у783117 1НОа 81 У1 с вх 
И» Хадия 4934319 LIWX в/ НЕО ь 27743117 KQUXL$OIS 
/з АСУЗН 4154 ЗАТЗЭЗН ь/ г„вго, Х7171783117 10НХМН95015 
ги AOWSY 135 У1Уа #/ HOG., 411V% 841 104504015 
/а КС 414 108 GNWD SV ANYS г/ “,н4г0, 117Ү8Н31117 МО$Н10$1626$01$ 
/а 330 “11 а/ г, Него, Х717783117 1М820%16268%015 
/а За0й 5:29 e/ “.Н420, Х177843117 3009%1!528%015 
/и GNYWWOOD 13534 ь/ 6590, А11УЕЗ111 1485348 5268015 
/а 1804 10481 WiVd e/ ",н03330, ATIVYSLIA 1804%У1У0%01< 
4 


/а 1804 104М1 5ПЈУ15 ь/ 4Н23330. ХЛЛУНЗЈ17 LYUOd$LYLS$OIS 


/а LYYSN 1528 «/ 


/пезававоввввововевовововово 
. NOILOGS SNOILVYVIOSG 0/1 


пваавнанивзвазазавањћава 81:86. 
“(.,МЧО14НМЭХ5,) wWivd 3148 (6)4КН29015 
“(,43424468:98 :8210,) УРУП 3118 (а) 1ТОСУ 
“(05,215 цл SYOLINOW 9@-HGS.‘°HVO'HGO) Уу140 3118 (a )NONDIS$OIS 
“(0*, 48.) УРУП 3148 (4)954 ЯҮЗнН8 4015 
Ив и 8 9 1 е и / 
“(HOO HOO НА: НО: HOO НОО Н90“НЯ 5) VIVA 3118 (6)МОМ91544Ж 
Зоуа YOLINOW ТҮ1835 967 


анупоза | || 


s... 
3877230 | 01 
ЗНҮТЭЗС 1 6 


ЗНУЛОЗО | 8 
.... 


4 
s... 


as калтайоо 98-и/1а 
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MEMORY$USERSTACK$PTR POINTER, 
USERSTACK STRUCTURE (OFF WORD, SEG WORD) 
АТ (@MEMORY$SUSERSTACK$PTR), 
MEMORY$USERSTACK BASED MEMORY$SUSERSTACK$PTR WORD; 


/ + 2022010020000 00 гагаттеотт 


9 REGISTER SECTION е 
99998249488088682082408989080/ 


12 1 DECLARE 

REG(#) ВҮТЕ DATA 79 REGISTER NAMES 9?/ 
('AXBXCXDXSPBPSIDICSDSSSESIPFL'), 

КЕСЗТНОЕХ WORD, 

REG$SAV(14) WORD, /® USER'S SAVED REGS ®/ 

REGSORD( ?) BYTE DATA 
(7,6,1,3,2,0,9,11,12,8,137, 

SP LITERALLY 'REG$SAV( 4)", 

BP LITERALLY " ВЕСЗЗАУ( 5)", 

CS LITERALLY 'REG$SAV( 8)", 

DS LITERALLY 'REG$SAV( 9)", 

ss LITERALLY 'REG$SAV(10)', 

ES LITERALLY 'REG$SAV(11)', 

LP LITERALLY 'REG$SAV(12)', 

FL LITERALLY 'ЯЄСЗЗАУ( 13)"; 


/ т 2200202 0700 08 ваа аа за аа ве аа ааа аа аа а а аа 


е BOOTSTRAP JUMP AND 8089 VECTOR ж 
211133515112 PARSER RAE е / 


/* THIS BOOT CONSISTS ОҒ А LONG JUMP TO THE BEGINNING OF THE MONITOR 
АТ ЕЕОО„ХХХХ WHERE ХХХХ TS THE STARTING ADDRESS OFFSET (IP) AND 
MUST BE DETERMINED AFTER EACH COMPILE. #/ 
13 1 DECLARE 

START$ADDR LITERALLY "ООАВН?, /% STARTING ADDRESS %/ 
BOOT1( #) BYTE АТ (OFFFFOH) DATA (ОБАН), / LONG JUMP OPCODE */ 
BOOT2( š) WORD AT (OSFFFIH) DATA (STARTSADOR), 
BOOT3( B) WORD АТ (OFFFF3H) DATA (ОРРООН); /% SEGMENT ADDRESS! #/ 


/а THIS TWO-WORD DATA IS A JUMP TO THE STARTING ADDRESS AND IS LOCATED 
AT THE FIRST LOCATION OF ROM (NO OTHER DATA OR CONSTANT DECLARATIONS 
MAY PRECEDE IT). THE JUMP IS ACTUALLY TO (ЅТААТ-АОЮОА \-4 SINCE THE 
INSTRUCTION 15 A RELATIVE JUMP OF LENGTH 3. %/ 
14 1 DECLARE 
BOOT4( #) WORD DATA (28990Н,5ТАЯТҘАООВ-4); /% МОР,ЈМР START=ADOR %/ 


/® THIS BLOCK OF ROM АТ FFFF6-FFFFA IS INITIALIZED FOR THE 3089 
DEVICE AND POINTS TO A BLOCK OF КАМ АТ 9100H. ?/ 
15 1 DECLARE 
BLOCK $8089 WORD АТ (OFFFF5H) DATA (093018', 
BLOCK$8089$PTR POINTER АТ (ОРРЕЕЗН) DATA (0019048); 


у ззасзазазазазоазавосавзваваозезае 1 


9 FILL DECLARATIONS SECTION е 
ооо зоо ЗУ 


4 
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/% THESE DECLARATIONS ОБРТМЕ FILL CHARACTERS FOR ALL UNUSED 
LOCATIONS IN THE ROM ADDRESS SPACE. ANY MODIFICATION TO THE CODE 
| THAT CHANGES THE USED LOCATIONS IN THE ROM REQUIRES 
- MODIFICATION OF THIS SECTION. #/ 


16 1 DECLARE 


У F LITERALLY 'OFFH', 
FILL1(*) BYTE АТ (OFFFDBH) DATA ( 
FILL2(*) BYTE АТ (OFFFEOH) DATA ( 
FILL3(#) BYTE AT (OFFFF5H) DATA ( 
( 


Р Р.ФОВІ, 
Е,Е,Е,Е,Е,Е,Е,Е,Е,Е,Е,Е,Е,Е,Е), 
, 

FILL4(#) BYTE АТ (OFFFFCH) РАТА Е 


/а чаво нон нос нони ана ааа ана ааа ааа на аа на аа аа ана 
08:08 85:55 55:88:80: 5 555255255  Ц 5 0 й 0 0 5: Л: 20 0: 00: 0 0 4 њи ни аа ка 


COMMON PROCEDURES 


ABSTRACT 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 
LEVEL ROUTINES. 


MODULE ORGANIZATION 


THIS MODULE IS DIVIDED INTO 4 SECTIONS AS FOLLOWS: 
1. BASIC 1/0 SECTION 


ñ SIO$CHAR$RDY INPUT CHARACTER READY 
W SIO$CHECK$CONTROL$CHAR CHECK FOR CONTROL CHARACTER 
SIO$OUT$CHAR OUTPUT CHARACTER 
SIO$GET$CHAR INPUT A CHARACTER 
510500Т5ВҮТЕ OUTPUT A BYTE IN HEX 
STOSOUT$WORD OUTPUT A WORD IN HEX 
STO$OUT$BLANK OUTPUT A SINGLE BLANK 
SIO$OUT$STRING OUTPUT A STRING 
STO$OUT$HEADER OUTPUT A PAPER TAPE HEADER 
2. UTILITY ROUTINES SECTION 
SIO$VALID$HEX TEST FOR VALID HEX CHAR 
SIO$HEX CONVERT TO HEX FROM ASCII 
SIO$VALID$REG$FIRST TEST FOR VALID REGISTER FIRST CHAR 
SIO$VALID$REG TEST FOR VALID REGISTER NAME 
SIO$CRLF OUTPUTS A CR AND LF 
SIO$TEST$WORD$MODE TEST FOR А "ИМ" IN COMMAND 
: 51055 САМЗВСАНК SCANS FOR OPTIONAL BLANK 
3. ГЗСОМЕМТ EXPRESSION EVALUATION SECTION 
SIO$GET$WORD GET AN WORD EXPRESSION 
SIO$GET$ADDR GET AN ADDRESS EXPRESSION 
, SIO$UPDATE$IP OPTIONAL UPDATE OF С5:1Р 
Ж» 4% 4. PAPER ТАРЕ READ SECTION 
SIO$READ$CHAR READ CHAR FROM TTY READER 
SIO$READ$BYTE READ A BYTE 
SIO$READ$WORD READ A WORD 
5. INTERRUPT AND RESTORE/EXECUTE ROUTINES 
SAVE$REGISTERS SAVES USER REGISTERS 
RESTORESEXECUTE RESTORE MACHINE STATE AND EXEC 
INTERRUPTI$ENTRY INTERRUPT ROUTINE FOR SINGLE STEP 
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го 


гә гә 


с FZ.) ла) wn ГО 


ОУ гә гә (Q I Мо» = 


м мг го 


INTERRUPTISENTRY INTERRUPT ROUTINE FOR GO 
INIT$INT$VECTOR INITIALIZES INTERRRUPT VECTORS 
8 / 


ААА ААА. 


е ВАЅІС 1/0 ЗЕСТІОМ ы 
ИТЕУ, 


STO$CHAR$RDY: 

/9 TESTS FOR INPUT CHARACTER PENDING BY READING THE STATUS PORT 
AND MASKING WITH SIO$RXRDY( READ DATA READY). RETURNS TRUE ТЕ 
NOT EMPTY(CHAR PENDING) AND FALSE IF NO CHAR PENDING #/ 

PROCEDURE BYTE; 
IF (INPUT(SIO$STAT$PORT) AND SIO$RXRDY)=20 THEN RETURN FALSE; 
RETURN TRUE; 

END; 


STO$CHECK$CONTROLSCHAR: 
/% THIS ROUTINE CHECKS ТЕ A CONTROL CHARACTER HAS BEEN INPUT TO 
THE SERIAL PORT. AFTER A CONTROLS IT WAITS FOR А CONTROL=-Q BEFORE 
RETURNING 72 THE CALLER. A CONTROL=C CAUSES A JUMP TO THE ERROR 
ROUTINE. 9/ 


PROCEDURE; 
CHAR = ЇНРОТ(5105рАТАРОНТ) AND O7FH; 
IF CHAR=13H THEN /% CONTROLES 2 4/ 
DO WHILE CHAR<>11H; 79 CONTROL=Q ë / 
ТЕ SIO$CHAR$RDY THEN 
00; 
CHAR = INPUT(STO$DATA$PORT) AND O7FH; 
ТЕ СНАН-03Н THEN SOTO ERROR; 
END, 
END; 


ELSE те CHAR = 03H THEN GOTO ERROR; 
END SLO$CHECK$CONTROLS$CHAR; 


ЗТОЗОЦТЗСНАЯ: 

/* THIS ROUTINE OUTPUTS THE INPUT PARAMETER TO THE USART OUTPUT 
PORT WHEN USART 15 READY FOR OUTPUT (XMIT BUFFER EMPTY). #/ 

PROCEDURE(C); 
DECLARE C BYTE; 
ТЕ SIO$CHARS$SRDY THEN CALL SIO$CHECKS$CONTROLSCHAR; 
DO WHILE (ІМРОТ(ЗІОЗЗТАТФРОВТ) AND SIO$TXRDY)=20;END; 
OUTPUT(SIO$DATA$PORT) = С; 

END; 


SIO$GET$CHAR: 

/а THIS ROUTINE INPUTS A CHARACTER FROM THE INPUT PORT AND RETIRNS 
WITH ІТ IN THE GLOBAL ‘CHAR’. THE CHARACTER IS ECHOED TO THE 
OUTPUT PORT IF PRINTABLE. %/ 

PROCEDURE; 
DO WHILE (INPUT(SIO$STAT$PORT) AND STOSRXROY)=20;END; 
CHAR = INPUT(SIOS$DATAS$PORT) AND ОТЕН; 
IF CHAR>=ASBL THEN CALL 31932015СЧАВ(СНАВН!, 

END; 


STISOUTSBYTE: 
/а THIS ROUTINE OUTPUTS THE SINGLE INPUT PARAMETER TO THE JSART 
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IN ASCII HEXADECIMAL FORMAT, #/ 
PROCEDURE(8); 


52 2 DECLARE В BYTE; 
23 2 CALL 5ТОФОЈТФСНАК(АЗСТТ(5НЕ(В,4) AND OFH)); 
54 2 CALL SIO$OUT$CHAR(ASCII(B AND OFH)); 
55 2 CHECK3SUM = CHECK$SUM - В; 
56 2 END; 
57 1 STO$SOUT$WORD: 
/® THIS ROUTINE OUTPUTS THE INPUT PARAMETER АЗ 4 ASCII HEXADECIMAL 
CHARACTERS TO THE USART OUTPUT PORT, %/ 
PROCEDURE(W); 
58 2 DECLARE W WORD; 
59 2 CALL STISIUTSBYTE(HISH(W)); 
60 2 CALL STISOUTSBYTE(LOW(W)); 
91 2 ЕМО; 
52 1 ЗІОЗОУТЗВСАМХ: 
/® THIS ROUTINE OUTPUTS ONE BLANK, %/ 
PROCEDURE; 
63 2 CALL ЗТОЗОПТфСНАН( АЗВЬ); 
БЦ 2 ЕНО; 
65 1 SIO$OUT$STRINC: 
/® OUTPUTS A STRING POINTED TO BY THE FIRST PARM. #/ 
PROCEDURE( PTR); 
66 2 DECLARE PTR POINTER, STR BASED PTR (1) BYTE; 
67 2 ї = 0; 
68 2 DO WHILE STR(I)<>9; 
69 3 CALL STISICTSOCRARL ТАТТУ: 
70 2 L зо ж а 
71 3 SND.: 
72 2 ENG; 
#5 1 SIOSOUTSHEADER: 
/%4 THIS ROUTINE OUTPUTS THE PAPER TAPE HEADER CONSISTING ЈЕ ":" 
FOLLOWED BY THE RECORD LENGTH, LOAD ADDRESS, AND THE RECORD TYPE. 
IT INITIALIZES THE CHECKSUM TO ZERO. 9?/ 
PROCEDURE(LENGTH,LOAD$ADDR,REC$TYPE); 
74 2 DECLARE ((ЕМОТН, ВЕСЗТУРЕ) ВҮТЕ, LOAD$ADDR WORD; 
7% 2 CALL SIS$OUT$CHAR( 7:73: 
76 2 СНЕСКЗ5ЏМ 2 2; 
77 2 CALL STO$OUT$BYTE(LENGTH); 
78 2 CALL SIOSOUT$WORD(LOADS$ADOR); 
79 2 CALL STOSOUTSBYTE(RECSTYPE); 
80 2 END; 
81 1 51253251355ТТ:1ЇМО050Е1АҮ: 
/® THIS DELAY ROUTINE ALLOWS THE ЈЅАЯТ SUFFICIENT 7142 
TO SETTLE AFTER WRITE OPERATIONS. @/ 
PROCEDURE: 
22 2 Т = SHR(OFFH,OFFH); 
#3 2 2:33 


узи наа каа каа ДАЛАДА АА, 


ж ость ROUTINES S20 SON в 
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84 


10% 


105 


MM ww А 


гә ғә № гә 


— 


м г ка) мә № 


-» fN Г лә КА ка) Го ГО 


го 
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SIO$VALID$HEX: 

и” THIS ROUTINE TESTS ТЕ THE INPUT PARM IS A VALID ASCII HEX DIGIT 
AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO AND FALSE 
ТЕ МОТ. #/ 

PROCEDURE (H) BYTE; 
DECLARE H BYTE; 
DO I=O ТО САЗТ(АЗСІІ): 

ТЕ Н.:АЗСЇЇ(1) THEN RETURN TRUE; 

END; 
RETURN FALSE; 

END; 


SIO$HEX: 
/% THIS ROUTINE CONVERTS THE INPUT PARM FROM АЗСТТ TO ITS BINARY 
EQUIVALENT AND RETURNS IT AS THE VALUE OF THE PROCEDURE. NO CHECK 
IS MADE FOR INPUT VALIDITY. */ 
PROCEDURE(C) WORD; 
DECLARE C BYTE; 
ТЕ С<='9' THEN RETURN DOUBLE(C-30H); 
ELSE RETURN DOUBLE(C-37H); 
END; 


STO$SVALID$REG$FIRST: 
/% THIS ROUTINE CHECKS ТЕ ‘CHAR’ IS A VALID FIRST LETTER ОҒ A REGISTER 
NAME AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE ТЕ 50, #/ 
PROCEDURE BYTE; 
DO ї=0 TO 26 BY 2: 
IF CHARSREG(I) THEN RETURN TRUE; 
END; 
RETURN FALSE; 
END; 


SIO$VALID$REG: 

/а THIS ROUTINE CHECKS IF THE TWO INPUT PARMS TAKEN TOGETHER FORM 
A VALID REGISTER NAME. IT SEARCHES THE REGISTER TABLE AND IF А 
MATCH IS FOUND, THE GLOBAL "ВЕОЗТМОЕХ" IS SET TO THE INDEX OF THE 
VALID REGISTER AND THE PROCEDURE RETURNS TRUE. IF NO MATCH THE 
PROCEDURE RETURNS FALSE AND REG$SINDEX IS UNDEFINED. #/ 

PROCEDURE (C1,C2) BYTE; 

DECLARE (C1,C2) BYTE; 
DO REG$INDEX=0 ТО 13; 
IF C1isREG(REG$INDEX#2) AND С2=ВЕС ( ВЕСЗТМОЕХ® 2+1) THEN 
RETURN TRUE; 
END; 
RETURN FALSE; 
END; 


ЗТОЗСЯЦЕ: 
/а THIS ROUTINE OUTPUTS A CR AND LF ТО THE OUTPUT PORT. "/ 
PROCEDURE; 
CALL 510500Т5СНАН(А5СН), 
CALL SIO$OUT$CHAR(ASLF); 
END; 


STO$TEST$WORDSMODE: 
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/® THIS PROCEDURE TESTS FOR А "И" FOLLOWING THE COMMAND AND ТЕ 50 
SETS THE FLAG 'WORDSMODE TO TRUE OR FALSE OTHERWISE. SCANS OFS 
OPTIONAL BLANK FOLLOWING COMMAND. %/ 

PROCEDURE; 

WORD$MODE = FALSE; 

CALL 51050ЁТ5СНАВ, 

IF СНАН- "И" THEN 
DO; 
WORD$MODE = TRUE; 
CALL ЗТОЗСЕТ$СНАН; 
END; 

ТЕ CHAR=ASBL THEN 
CALL SIO$GET$CHAR; 

END; 


SIO$SCAN$BLANK: 

/* THIS ROUTINE IS CALLED AFTER A COMMAND LETTER TO SCAN OFF THE 
OPTIONAL BLANK. 9/ 

PROCEDURE; 
CALL STO$GET$CHAR; 
IF CHAR=ASBL THEN 

CALL SITO$GET$CHAR; 
END; 


/ озоном на нананааааваа ааа ава ааа 


е ARGUMENT EXPRESSION EVALUATOR SECTION 5 
ТҮЗІЗГІЗІЕЗ 232152235355 аа нан / 


STO$GET$WORD: 
/е THIS ROUTINE READS CHARS FROM THE INPUT PORT AND EVALUATES 
AN EXPRESSION CONSISTING OF '+*-' AND OPERANDS OF HEX NUMBERS 
AND REGISTER NAMES. "/ 
PROCEDURE WORD; 
DECLARE (SAVE,W) WORD, (OPER,T) BYTE; 
OPER = "+"; 


W з 0; 
DO WHILE TRUE; 
T = CHAR; 
SAVE = 0; 
IF SIO$VALID$REG$FIRST THEN 
00; 


CALL 5ТОЗОЕТФСНАК; 
ТЕ SIO$VALID$REG(T,CHAR) THEN 
DO; 
SAVE = REG$SAV(REG$INDEX); 
CALL SIO$GET$CHAR; 
GOTO EVAL; 
END; 
ELSE 
SAVE = SIO$HEX(T); 
END; 
ТЕ NOT(SIO$VALIDSHEX(T)) THEN СОТО ERROR; 
DO WHILE SIO$VALID$HEX( CHAR); 
SAVE = SHL(SAVE,4) + SLO$HEX( CHAR); 
CALL SIO$GETS$CHAR; 
END; 
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157 3 EVAL: IF OPER='+' THEN 
158 3 W = Я + SAVE; 
ELSE 
159 3 W = Я - SAVE; 
160 3 IF CHAR=ASCR OR СНАЯ=':' OR СНАВз',"' THEN 
161 3 RETURN W; 
162 3 IF CHAR='+' OR CHAR=z='-' THEN 
163 3 OPER = CHAR; 
ELSE 
164 3 СОТО ERROR; 
165 3 CALL ЗІОЗСЕТЗСНАВ; 
166 3 END; 
167 2 END; 
168 1 SIO$GET$ADDR: 
/9 THIS ROUTINE ACCEPTS A VALID ADDRESS EXPRESSION CONSISTING 
OF AN OPTIONAL <SEG>: AND AN DISPLACEMENT. #/ 
PROCEDURE( PTR, DEFAULTS$BASE) ; 
169 2 DECLARE PTR POINTER, DEFAULTS$BASE WORD, 
ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 
170 2 ARG.SEG = DEFAULTS$BASE; 
171 2 ARG.OFF = SIO$GET$WORD; 
172 2 IF CHAR=':' THEN 
173 2 00; 
174 3 CALL 5ТОФОЕТЗСНАК; 
175 3 ARG.SEG з ARG.OFF; 
176 3 ARG.OFF = SIO$GET$WORD; 
177 3 IF CHAR=':' THEN GOTO ERROR; 
179 3 END; 
180 2 END; 
181 1 ЗТОЗПРРАТЕЗТР: 
/® THIS PROCEDURE IS CALLED BY SINGLE STEP AND GO ТО OUTPUT THE CURRENT 
ІР AND INSTRUCTION BYTE AND OPEN THE ТР FOR INPUT. #/ 
PROCEDURE; 
182 2 CALL SIO$OUTS$BLANK; 
183 2 CALL SIO$OUTSWORD(IP); 
184 2 CSIP.SEG з C3; 
185 2 CSIP.OFF з IP; 
186 2 CALL 510300Т5СНАВ("-"), 
187 2 CALL SIO$OUT$BLANK; 
188 2 CALL SIO$OUT$BYTE(MEMORY$CSIP); 
189 2 CALL SIO$OUTS$BLANK; 
190 2 CALL 5ТОЗОЕТЗСНАК; 
191 2 IF CHAR<>',' AND CHAR<>ASCR THEN CALL ЗТОЗСЕТЗАОПОВ ( бСЗТР ,CS); 
193 2 END; 
упавааавананванавааа ваа ваа аа за не 
, РАРЕЯ ТАРЕ READ SECTION bd 
+210 022202 0020022 012012100102 ваваа ва ва / 
19 4 1 SIO$SREAD$CHAR: 


/% THIS PROCEDURE READS A BYTE FROM THE PAPER ТАРЕ READER OF THE TTY 
BY ACTIVATING ОТН, SAMPLING DSR FOR THE START BIT, DEACTIVATING 
DTR WHEN THE START BIT APPEARS, AND READING THE DATUM FROM THE 
USART. TO PROVIDE A HOLD-OFF CAPABILITY FOR THE LOAD COMMAND 
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ONLY (МОТ INTENDED FOR ТТҮ РАРЕВ ТАРЕ) CONTROL-S WILL CAUSE THIS 
ROUTINE ТО WAIT FOR A CORRESPONDING CONTROL=Q ТО BE READ BEFORE 
CONTINUING. ®/ 

PROCEDURE BYTE; 
DECLARE DELAY WORD; 


LOOP: 
OUTPUT(SIO$STAT$PORT) = 5125825 140ТНХОН; /% DTR ON "/ 
DELAY з Q; 
DO WHILE (INPUT(SIO$STAT$PORT) AND SIO$DSRDY)20; /*WAIT STARTBIT#/ 
DELAY = DELAY + 1; 
IF DELAY>=MAX$DELAY THEN 
ро; 
OUTPUT(SIO$STAT$PORT) = STO$8251$CMND; /% OTR OFF ?/ 
GOTO ERROR; 
END; 
END; 
OUTPUT(SIO$STAT$PORT) = SIO$8251$CMND; /® DTR OFF ®/ 
DO WHILE (INPUT(SIO$STAT$PORT) AND SIO$RXRDY)=0;END; /* WAIT LOOP %/ 
CALL STO$CHECK$CONTROLS$CHAR; 
ТЕ CHAR = 11H THEN GOTO LOOP; /% GET ANOTHER IF CTL-Q %/ 
RETURN CHAR; 
END; 
SIO$READ$BYTE: 


/8 THIS ROUTINE READS A BYTE FROM THE PAPER TAPE READER. %/ 
PROCEDURE BYTE; 

DECLARE T BYTE; 

T = LOW( STOSHEX(STO$READ$CHAR)); 


T = ЗНІ(Т,Ц) + LOW(SIO$HEX(STO$READ$CHAR)); 
СНЕСУРЗИМ = CHECK$SUM + Т; 
RETURN T; 
END; 
STO$READ$WORD: 


ие THIS ROUTINE READS A WORD FROM THE PAPER TAPE READER AND RETURNS ІТ 
AS THE VALUE OF THE PROCEDURE. %/ 
PROCEDURE WORD; 
DECLARE T BYTE; 
T = SIO$READ$BYTE; 
RETURN SHL(DOUBLE(T),8) + DOUBLE(SIO$READS$BYTE); 
END; 


/ чево они оно ава аа оно ааа на вала аа 


ы INTERRUPT AND RESTORE/EXECUTE SECTION Ы 
22311555555 555555555553 555555532 | 


SAVE$REGISTERS: 
/* THIS ROUTINE IS USED TO SAVE THE STACKED USER'S REGISTERS IN THE 
МОМТТОВ"5 SAVE AREA. %/ 
PROCEDURE; | 
ВР = MEMORY$USERSTACK; 
05ЕҢ5ТАСК.ОЕҒ = USERSTACK.OFF + Ц; 
DO 1:50. TO 19: 79 POP REGISTERS OFF ОҒ STACK #/ 
REG$SAV(REG$ORD(I)) = MEMORYS$USERSTACK; 
USERSTACK.OFF = USERSTACK.OFF + 2; 
END; 
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SS = USERSTACK.SEG; 
SP = USERSTACK.OFF; 

END; 

RESTORESEXECUTE: 

/9 THIS PROCEDURE RESTORES THE STATE OF THE USER MACHINE AND 
PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN "ТНЕТ" TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. ®/ 

PROCEDURE; 

DECLARE RESTORESEXECUTESCODE(*) BYTE DATA 
(08ВН,0ЕСН, /% MOV BP,SP 9/ 
088Н,246Н,002Н, /% MOV АХ, /ВР/.РАВМ2 8 / 
088Н,05ЕН,0ОЧН, /® MOV ВХ,/ВР/.РАВМІ %/ 
О8ЕН,Орон, /9 MOV SS,AX 9 / 
08ВН,0ЕЗН, /% МОУ 5Р,ВХ ./ 
OSDH, /* POP BP ./ 
05ЕН, /% РОР 01 9 / 
ОБЕН, ге POP 51 B / 
058Н, 79 РОР ВХ 9 
ОБАН, 79 POP рх 9 / 
O59H, 79 POP СХ ”/ 
0588, 79 POP АХ ./ 
ОТЕН, 79 РОР 05 ® / 
007Н, /9 РОР Е5 8 / 
OCFH), /% ТАЕТ ./ 
КЕЗТОНЕЗЕХЕСИТЕЗСООЕЗРТН WORD DATA ( .RESTORESEXECUTES$CODE); 
USERSTACK.SEG = SS; 
USERSTACK.OFF = SP; 
DO [20 TO 10; /% PUSH USER'S REGISTERS ONTO HIS STACK #/ 


USERSTACK.OFF = USERSTACK.OFF - 2; 
MEMORYSUSERSTACK = REGS$SAV(REGS$ORD(10-I)); 
END; 
USERSTACK.OFF = USERSTACK.OPF - 2; 
MEMORYSUSERSTACK = BP; 
CALL RESTORES$SEXECUTESCODES$SPTR(USERSTACK.OFF,USERSTACK.SEG); 
END; 


INTERRUPTISENTRY: 
/% THIS PROCEDURE IS CALLED WHEN THE СРО IS INTERRUPTED BY EXECUTING 


AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). %/ 
PROCEDURE INTERRUPT 1; 
USERSTACK.OFF = STACKPTR; 
USERSTACK.SEG = STACKBASE; 
STACKPTR = MONITORS$STACKPTR; 
ЗТАСКВАЗЕ = MONITORSSTACKBASE; 
CALL SAVESREGISTERS; 
FL = FL AND (МОТ STEPSTRAP); /% CLEAR STEP FLAG %/ 
IF LASTSCOMMAND<>SS$COMMAND THEN /% CONTINUE IF МОТ SS %/ 
CALL RESTORESEXECUTE; 
CALL STOSCRLF; 
CALL STOSUPDATESTP; 
ТЕ СНАВз"',' THEN 
09: 


/% CHANGE ТО МОМТТОВ"5 STACK #/ 


PAGE 
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261 3 ЇР = CSIP.OFF; 

262 3 CS = CSTP.SEG; 

263 3 FL = FL OR STEPS$TRAP; /* SET STEP FLAG ?/ 

264 3 CALL RESTORE$SEXECUTE; 

265 3 END; 

266 2 IF CHAR<>ASCR THEN СОТО ERROR; 

268 2 GOTO NEXT$COMMAND; 

269 2 END; 

270 1 INTERRUPT3$SENTRY: 

/9 THIS PROCEDURE TS CALLED WHEN THE CPU EXECUTES A ‘INT 3" INSTRUCTION. 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO AN EXTERNAL 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO BE 
CALLED. ?/ 
PROCEDURE INTERRUPT 3; 

271 2 USERSTACK.OFF = STACKPTR; 

272 2 USERSTACK.SEG = STACKBASE; 

273 2 ЗТАСКРТЯ = MONITORSSTACKPTR; 

274 2 STACKBASE = MONITOR$STACKBASE; 

279 2 CALL SAVE$REGISTERS; 

276 2 CALL 5103СВЬР, 

277 2 СОТО AFTERSINTERRUPT; 

278 2 END; 

279 1 INIT$INTSVECTOR: 


/® THIS ROUTINE INITIALIZES AN INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 
FROM THE ADDRESS OF "ТМТЗВОЏТТМЕ" CORRECTED BY THE APPROPRIATE 
NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE. THE SEGMENT FROM THE 
CURRENT CS REGISTER IS DETERMINED BY A MACHINE LANGUAGE CODED 
SUBROUTINE. ®/ 
PROCEDURE( INT$VECTORS$PTR, INT$ROUTINESOFFSET) ; 
280 2 DECLARE INT$VECTOR$PTR POINTER, INT$ROUTINE$SOFFSET WORD, 
VECTOR BASED INT$VECTOR$PTR STRUCTURE (OFF WORD, SEG WORD), 
CORRECTION LITERALLY "19Н", /% OFFSET FOR PROLOGUE #/ 
INIT$INT$VECTOR$CODE(*) BYTE DATA 


(9558, /* PUSH BP 8 / 
O8BH,OECH, /® MOV BP,SP е / 
ОВСН , ОСВН, /% MOV АХ,С5 е / 
ОСЧН,ОФЕН,ООЧН, /9 LES ВХ,/ВР/.РАНМ1 %/ 
026H,089H,007H, /® MOV ES:W/BX/,AX е / 
0508, 79 POP ВР ./ 
0C2H,004H,000H), /% RET 4 8 / 
INIT$INT$VECTOR$CODE$PTR WORD DATA (.INIT$INT$VECTOR$CODE); 
281 2 CALL INIT$INT$VECTOR$CODE$PTR(@VECTOR.SEG); /% SEGMENT PORTION %/ 
282 2 VECTOR.OFF = INT$ROUTINE$OFFSET - CORRECTION; /9 OFFSET PORTION #/ 
283 г END; 


/% 000 й 00: :0:ї її ї л 0 0 0: 0 0Ц 2 0: 2 0 вв ЛАД ДА ДА Л Є ААА, 
ооо 00:00 2 40 2 024621: 5 002 000606: вз 88484. 3484885864 RRR ERR RRR Р Л Ч 
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AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 


MODULE ORGANIZATION 
21:212:22:231::1:1:11:1:: 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 


1. 


2» 


./ 


COMMANDS SECTION 


STO$GO GO 

STOS$SSINGLESSTEP SINGLE STEP 

ЗТОЗЕХАМЗМЕМ SUBSTITUTE MEMORY 

SIO3EXAM$REG EXAMINE REGISTER 

SIO$MOVE MOVE 

STOSDISPLAY DISPLAY BYTES 

STOSINPUT INPUT PORT 

ЗТОЗОПТРИТ OUTPUT PORT 

ЗТОЗМЯТТЕ WRITE DATA RECORDS 

ЗТОЗНЕАО READ DATA RECORDS 
COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 

МЕХТЗСОММАНО ОТЗРАТСН 

ERROR ERROR ROUTINE 


/ + 22202100 00 0 2 воа 002 009 


е СОММАМО ЗЕСТІОМ ы 
121111111111 1121 2У) 


510300: 


/9 IMPLEMENTS THE "00" COMMAND. THE USER MAY SPECIFY 
ТР: РС AND AN OPTIONAL BREAKPOINT. ?/ 

PROCEDURE; 
CALL ЗТОЗОРОАТЕЗТР; 


IF CHAR=',' THEN 


/9 BREAKPOINT 9?/ 
00; 

CALL STO$GETSCHAR; 

CALL SIO$GETS$ADDR(@BRK1,CSIP.SEG); 

ТЕ CHAR<D>ASCR THEN GOTO ERROR; 

BRKI$SAVE = МЕМОВУЗВЕК 1; 

MEMORY$BRK1 = BREAK$INST; 

IF МЕМОЯУЗВАК1<>ВЕЕАКЗТМЗТ THEN GOTO ERROR; 
BRKI3FLAG = TRUE; 

END; 


ELSE /% NO BREAKPOINT ?/ 


IF CHAR<>ASCR THEN GOTO ERROR; 


CALL SIOSCRLF; 

з CSTP.OFF; 

з CSIP.SEG; 

FL = FL AND (МОТ STEPSTRAP); 
L RESTORESEXECUTE; 


SITOSSINGLES$STEP: 


A NEW 


/% CLEAR IF SET ?/ 


/® IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS ІР AND THE 


CURRENT INSTRUCTION ВТҮЕ. OPENS 5:19? FOR INPUT. 


DEPRESSING 


COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, AND 


PERIOD TERMINATES THE COMMAND. %/ 
PROCEDURE; 


PAGE 
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CALL SIO$UPDATESIP; 
ТР СНАНС»"," THEN GOTO ERROR; 
CSIP.OFF; 
CSIP.SEG; 
FL = FL OR ФТЕРЗТНАР; 
CALL RESTORE$EXECUTE; 
END; 


Q 
а 
Син 


ЗТОЗЕХАМ$ МЕМ: 
/% IMPLEMENTS THE EXAMINE MEMORY COMMAND. %/ 
PROCEDURE; 
DECLARE W WORD; 
CALL SIO$TEST$WORD$MODE; 
CALL SITO$GET$ADDR(@ARG1,CS); 
ТЕ СНАЯ<>",!" THEN GOTO ERROR; 
DO WHILE TRUE; 
CALL SIO$OUT$BLANK; 
IF WORD$MODE THEN 
CALL SIO$OUT$WORD( MEMORY$WORDSARG1); 
ELSE 
CALL SIO$OUT$BYTE(MEMORY$ARG1); 
CALL ФТОЗОЏТЗСНАА( "-"); 
CALL SIO$OUT$BLANK; 
CALL SIO$GET$CHAR; 
IF CHAR=ASCR THEN RETURN; 
IF СНАВС»"," THEN 
00; 
W з ЭТО$ОБТ$ НОВО; 
те (CHAR <> ",") AND (CHAR <> ASCR) THEN GOTO ERROR; 
ТЕ wIROSMOSE THEN 
00; 
МЕМОВУЗИОНОЗАНОТ = W; 
ТЕ MEMORY$WORD$ARG1<>W THEN GOTO ERROR; 
END; 
ELSE 
ро: 
МЕМОВІЗАВСЇ!: = LOW(W); 
ТЕ MEMORY$ARG1<>LOW(W) THEN GOTO ERROR; 
END; 
END; 
IF CHAR=ASCR THEN RETURN; 
IF WORD$MODE THEN 
ARG1.OFF = ARG1.OFF + 2; 
ELSE 
АВСТ,ОРЕ = ARG1.OFF + 1; 
CALL SIO$CRLF; 
CALL SIO$OUT$WORD(ARG1.OFF); 
END; 
END; 


ЗІОФЕХАМЗВЕС: 

/% IMPLEMENTS THE EXAMINE REGISTER COMMAND. SCANS FOR A VALID 
REGISTER NAME AND DISPLAYS THE VALUE OF THAT REGISTER WHICH 15 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
UNLESS ТТ IS "БЕ" WHICH TERMINATES AS DOES CR. %/ 

PROCEDURE; 

DECLARE (Т,1) BYTE, SAVE WORD; 
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CALL SIO$SCAN$SBLANK; 
ТЕ CHAR=ASCR THEN 
00: 
CALL STOSCRL?; 
00 1-0 ТО 13: 
CALL STO$OUTS$BLANK; 
CALL SIOSOUT$CHAR(REG(I#2)); 
CALL ЗТОЗОЦТЗСНАЯ ( НЕС(1?2+1)); 
CALL ЗТОЗОЏТЗСНАА("г"). 
CALL STOSOUT$WORD( REGS$SAV(I)); 
ТЕ [26 THEN CALL SIOS$CRLF; 


END; 

RETURN; 

END; 
IF NOT(STO$SVALID$REG$FIRST) THEN GOTO ERROR; 
T = CHAR; 


CALL ЗІОЗСЕТУСНАЯ; 
ТЕ NOT(SIO$VALID$REG(T,CHAR)) THEN GOTO ERROR; 
I = REG$INDEX; 
DO WHILE TRUE; 
CALL ЗТОЗОЏТЗСНАА( "а"): 
CALL ЗТОЗОПТЗИОНО ( НЕСЗЗАУ(Т)); 
CALL 510%00Т9СНАЯ("-"); 
CALL STO$OUTS$BLANK; 
CALL ЗТОЗСЕТЗСНАЯ; 
IF СНАН<>2"," AND CHAR<>ASCR THEN 
00; 
ЗАМЕ = SIO$GET$WORD; 
IF (CHAR <> ",' ) AND (CHAR <> АСК) THEN GOTO ERROR; 
REG$SAV(I) = SAVE; 


END; 
IF СНАН-АЗСН OR 1213 THEN RETURN; 
141441 


CALL SIO$CRLF; 

CALL SIO$OUTSCHAR( НЕС(Т?2)); 

CALL STOSOUTSCHAR(REG(I#®241)); 
END; 


END; 


ЗТОЗМОУЕ : 
/9 IMPLEMENTS THE MOVE COMMAND. ACCEPTS 3 ARGUMENTS AMD MOVES THE 


BLOCK OF MEMORY SPECIFIED ВУ ARG1-ARG2 ТО АЯСЗ. ARG2<ARG1 OR THERE 
IS A DIFFERENCE WHEN THE BYTE ІЗ READ BACK, THEN ERROR. ?/ 


PROCEDURE; 


99Р: 


CALL ЗТОЗЗСАМЗВГАНК ; 

CALL ЗТОЗСЕТЗАООН ( ЗАНС1Т,СЗ); /а FIRST ARGUMENT #/ 
ТЕ СНАЯ<>"," THEN GOTO ERROR; 

CALL SIOSGETSCHAR; 

END$SOFF = STO$GETS$WORD; /® SECOND ARGUMENT 9 
IF ENDSOFF<ARG1.0FF THEN GOTO ERROR; 

IF СНАН<>"," THEN GOTO ERROR; 

CALL SIO$GETSCHAR; 

CALL SITOSGETSADOR( ЗААСЗ, CS); /® THIRD ARSUMENT #/ 

ТЕ CHAR<>ASCR THEN GOTO ERROR; 

CALL З1032ВР: 


МЕМОЧТЗАЛОЗ = MEMORYSARGI; 
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419 2 ТЕ MEMORY$ARG3<>MEMORY$ARG1 THEN GOTO ERROR; 
421 2 ТЕ АЯСТ.ОЄЄ = ENDSOFF THEN RETURN; 
423 2 ARG1.OFF = ARGI.OFF + 1; 
424 д ARG3.OFF = АНСОС3.0Є87 + 1; 
425 2 0919 LOOP; 
426 2 END; 
427 1 STO$DISPLAY: 
/* IMPLEMENTS THE DISPLAY BYTE COMMAND. IF CALLED WITH 1 PARM THEN 
OUTPUTS A SINGLE BYTE. ТЕ CALLED WITH 2 PARMS THEN OUTPUTS THE RANGE 
BETWEEN THE TWO ADDRESSES. ТЕ ОЕЕЗЕТ< ВЕСТЧ THEN OUTPUTS ONLY A SINGLE 
BYTE. #/ 
PROCEDURE; 
428 2 DECLARE T BYTE; 
429 2 CALL ЗТОЗТЕЗТУИОНОЗМООЕ; 
430 2 CALL SITO$GET$ADDR(8ARG1,CS); 
431 2 ТЕ CHAR=ASCR THEN 
432 2 END$OFF = ARG1.OFF; 
ELSE 
433 2 00; 
434 3 ТЕ CHAR<>',' THEN GOTO ERROR; 
435 3 CALL SIO$GET$CHAR; 
437 3 ЕМОФОРЕ = SIO$GET$WORD; 
438 3 ТЕ ЕМОЗОЕЕ < АВСТ.ОРР THEN GOTO ERROR; 
449 3 ТЕ CHAR<>ASCR THEN GOTO ERROR; 
442 3 END; 
443 2 NEWLINE: 
CALL SIO$CRLF; 
445 г CALL SIO$OUT$WORD(ARG1.0FF); 
445 2 LOOP: CALL SIO$OUT$BLANK; ' 
446 2 ТЕ WORD$MODE ТНЕМ 
цц” 2 00; 
48 3 CALL SIO$OUT$WORD(MEMORY$WORD$ARG1I); 
49 3 ТЕ АВСТ.ОЄЄ = END$OFF THEN RETURN; 
451 3 ARG1.OFF з ARG1.OFF + 1; 
452 3 END; 
ELSE 
453 2 CALL SIO$OUT$BYTE(MEMORY$ARG1); 
454 2 ТЕ ARG1.OFF>=END$OFF THEN RETURN; 
456 2 ARG1.OFF = ARG1.0FF + 1; 
457 д T = ARG1.OFF AND ОООЕН; 
458 2 IF Т=0 ОВ (WORD$MODE AND T=1) THEN GOTO NEWLINE; 
460 2 GOTO LOOP; 
461 2 END; 
462 1 ЗТОЗТНРУТ: 
/® THIS ROUTINE IMPLEMENTS THE "ТЦРиТ" COMMAND, USER ЗРЕСТЕТЕЗ 
A PORT AND THE DATUM OF THE PORT IS DISPLAYED. #/ 
PROCEDURE; 
463 2 DECLARE PORT WORD; 
464 2 CALL SIO$TEST$WORDSHODE; 
465 2 PORT = STOISGET$SWORD; 
455 2 L30P: 
Le СНАВ<У*,' THšN ШОТ) ERROR: 
453 2 GELL 3132 028ЫЕЁ: 
469 2 Ге wYROSMODE THEN 
472 2 TALL 313531754080(1440980(РЭНТ ҮҮ: 
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OUTPUTS LEADING NULLS, 
AND TRAILING NULLS. %/ 


, INDEX) WORD; 


FOR 8980 MODE #/ 


ELSE 
471 2 CALL 510900Т%ВТҮТЕ(ІМРУТ(РОВТ)); 
ц72 2 CALL STO$GETS$CHAR; 
473 г ТЕ CHARSASCR THEN RETURN; 
475 г GOTO LOOP; 
476 2 END; 
477 1 SIO$OUTPUT: 
/® THIS ROUTINE IMPLEMENTS THE ‘OUTPUT’ COMMAND. THE USER SUPPLIED 
DATUM IS OUTPUT TO THE SPECIFIED PORT. #/ 
PROCEDURE; 
478 2 DECLARE (DATUM,PORT) WORD; 
479 2 CALL SIO$TEST$wWORD$MODE; 
430 2 PORT = SIO$GET$WORD; 
481 2 ТЕ СНАВО»"',' THEN GOTO ERROR; 
483 2 CALL ЗТОЗСЕТЗСНАЯ; 
84 2 LOOP: 
DATUM = SIO$GETS$WORD; 
485 2 ТЕ CHAR=':' THEN GOTO ERROR; 
487 2 ТЕ WORD$MODE THEN 
438 2 OUTWORD(PORT) = DATUM; 
ELSE 
489 2 OUTPUT( PORT) = LOW( DATUM); 
499 2 IF СНАВз"',' THEN 
431 2 00; 
ц92 3 CALL SIO$CRLF; 
493 3 CALL 510400Т4СНАВ(!-"), 
494 3 CALL 51290079В0АЯҚ; 
2:5 3 CALL 512%СЕТ%СНАВ; 
пає 3 IF CHAR <> ASCR THEN GOTO LOOP; 
473 3 END; 
499 2 END; 
522 1 STO$wRITE: 
/% IMPLEMENTS THE PAPER TAPE WRITE COMMAND. 
EXTENDED ADDRESS RECORD (3086 ONLY), START ADDRESS RECORDS 
(8086 ONLY), DATA RECORDS, EOF RECORD, 
PROCEDURE; 
591 2 DECLARE (5ТАНТЗВЕС ,МООЕЗд086) BYTE, (LEN 
202 2 CALL ЗТОЗОЕТЗСНАЯ; 
123 2 MODE$8086 = TRUE; 
534 2 ТЕ СНАЯз'Х"' THEN /%* TEST 
505 г 50; 
596 3 MODE$3086 з FALSE; 
997 3 CALL ЗІОЗСЕТУСНАЯ; 
503 3 END; 
25% 2 ТЕ CHAR=ASBL THEN CALL 510%СЕТЗСНАВ; 
мт 2 CALL SIO$GET$ADOR(@ARG1I,CS); 
572 2 ТЕ СНАВ<>"," THEN GOTO ERROR; 
214 2 CALL ФТОЗЈЕТЗСНАВИ; 
515 2 END$OFF z SIO$GET$WORD; 
515 г ТЕ END$OFF<ARG1. OF? THEN GOTO ERROR; 
<18 2 IF CHAR<>ASCR THEN 
519 2 00; 
520 3 START$REC з TRUE; 
521 3 CALL SIO$GET$CHAR; 
Sez 3 CALL STO$GET$ADDR(@ARG3,CS); 
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END; 
ELSE 

DO; 

START$REC = FALSE; 

ARG3.OFF = 0; 

END; 
ТЕ CHAR<>ASCR THEN GOTO ERROR; 
CALL SIO$CRLF; 


DO 1-1 TO 60; 79 LEADING NULLS %/ 
CALL SIO$OUT$CHAR(0O); 
END; 


CALL SIO$CRLF; 


IF MODE$3086 THEN 
DO; 
IF START$REC THEN 
DO; 
CALL SIO$OUT$HEADER(04,0,03); /% START ADDRESS RECORD #/ 
CALL SIO$OUT$WORD( ARG3.SEG); 
CALL SIO$OUT$WORD(ARG3.0FF); 
CALL 510%00Т%ВҮТЕ( CHECK$SUM); 
CALL SIO$CRLF; 
ARG3.OFF = 0; 
END; 
CALL SIO$OUT$HEADER(02,0,02); /% EXTENDED ADDRESS RECORD #/ 
CALL SITOSOUT$WORD( ARG1.SEG); 
CALL SIOSOUTS$BYTE(CHECK$SUM) ; 
CALL SIO$CRLF; 
END; : 
СЕМ з STANDARD$LEN; ие DATA RECORD #/ 
INDEX = END$OFF - ARG1.0FF; 
IF INDEX<STANDARD$LEN THEN LEN = INDEX + 1; 
CALL SIO$OUT$HEADER(LEN,ARG1.0FF,00); 
DO 1-1 TO LEN; 
CALL SIO$OUTS$BYTE(MEMORY$ARG1); 
ARG1.OFF = ARGI.OFF + 1; 
END; 
CALL SIO$OUT$BYTE(CHECK$SUM); 
CALL SIO$CRLF; 
IF END$OFF<>ARG1.OFF-1 THEN GOTO LOOP; 


CALL STO$OUT$HEADER(00,ARG3.0FF,01); /% EOF RECORD %/ 
CALL ЗТОЗОПТЗВУТЕ ( CHECK3SUM) ; 
CALL SIO$CRLF; 


00 1-1 то 60; /% TRAILING NULLS #/ 
CALL ЗТОЗОПТЗСНАН(О); 
END; 
END; 
SIO$READ: 
/% IMPLEMENTS THE READ PAPER ТАРЕ COMMAND. */ 
PROCEDURE; 


DECLARE BIAS WORD, (REC$TYPE,LEN,I,T) BYTE, OFFSET WORD; 
BIAS = 0; /* DEFAULT BIAS ®/ 
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ARG1.SEG = 0; /* DEFAULT CS FOR 3080 FORMAT FILE #/ 
CALL STO$SCANSBLANK; 
ТЕ CHAR<>ASCR THEN BIAS = SIO$GET$WORD; 
ТЕ CHAR<>ASCR THEN СОТО ERROR; 
CALL STIO$CRLF; 
LOOP: 
DO WHILE SIO$READSCHAR<>':';3END; 
CHECK$SUM = О; 
LEN = SIO$READ$BYTE; 
OFFSET = ЗТО$АБАОЗ НОВО; 
АВСТ.ОРР = OFFSET + BIAS; 
RECSTYPE = ЗТОЗВЕАО$ВУТЕ; 
ТЕ ВЕСЗТУРЕ=ОЗ THEN /% START ADDR ТУРЕ %/ 
00; 
С5 
ТР 
END; 
IF ВЕСЗТУРЕ=Ог THEN /8 EXTENDED ADDR ТҮРЕ #/ 
ARG1.SEG = STO$READ$WORD; 
ТЕ REC$TYPE = 91 THEN /% БОР %/ 
ТЕ OFFSET <> 0 THEN ІР з OFFSET; 
ТЕ REC$TYPE=00 THEN /9 DATA ТУРЕ #/ 
DO 121 TO LEN; 
T,MEMORYSARG1 = 510%ПЕАО%ВҮТЕ; 
IF MEMORY$ARG1<>T THEN GOTO ERROR; 
ARG1.OFF = ARG1.OFF + 1; 
END; 
T = SIO$READSBYTE; /% FETCH CHECKSUM ®/ 
ТЕ CHECK$SUM<>0 THEN GOTO ERROR; 
IF REC$TYPE<>01 AND LEN<>0 THEN GOTO LOOP; 
CALL 510500Т5СНАВ(0), /% DELAY FOR LAST CR, LF SENT ®/ 
CALL 519300Т5СНАВ(0), /% BY INTELLEC 77 
ЕНО; 


SIO$SREAD$WORD; 
SIO$READ$WORD; 


/ + ага 1010 10 тонова аа ааа 


и COMMAND DISPATCH MAIN PROGRAM LOOP ? 
9:888:83982092328:482099242040883081:44442308842234084/ 


DISABLE; 
ОПТРИТ ( КВЗЗТАТЗРОНТ ) 
OUTPUT(KBSSTATS$PORT) 
OUTPUT(KBSSTAT$PORT) 
DO 1:0 TO 7; 

OUTPUT(KBSDATASPORT) = KB$SIGNON(I); 
END; 


КВЗІМІТУМООЕ; 
KBSINIT$SCAN; 
908; /% OUTPUT "8086" SIGNON BACKWARDS */ 


/9 THIS STRANGE SEQUENCE OF CODE Т5 USED TO GUARANTEE CORRECT USART 
INITIALIZATION AFTER EITHER: 1) HARDWARE RESET (EXPECTING MODE) 
2) SOFTWARE RESTART (EXPECTING COMMAND). #/ 


OUTPUT(SIO$STAT$PORT) = SIO$S251$RESET; 
CALL 5198825185ЕТТСТНОЗОБСАТ; 
ОПТРИТ ( ЗТОЗЗТАТЗРОЯТ) = 25H; 
CALL 5103825 135ЕТТ! ТНОЗОЕГАТ; 


з OUTPUT(SIOSSTAT$SPORT) = 5105325 14НЕЗЕТ ; 


CALL STO$S2513SETTLUINGSOELAY ; 
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OUTPUT(SIO$STAT$PORT) = SIO0$3251$%$MODE; 

CALL SIO$3251$SETTLING$DELAY; 

OUTPUT(SIO$STAT$PORT) = SI0$3251$CMND; 

CALL SIO$3251$SETTLING$DELAY; ° 
CALL 510%007%5ТВІМС( 951095128083; 


/% INITIALIZE USER'S REGISTERS %/ 
65,55,05,Е5,ҒЬ,ІР з O; 
ЗР = USER$INIT$SP; 


/9 INITIALIZE INTERRUPT VECTORS #/ 

CALL INITS$INTS$VECTOR( @INT$VECTOR(1),.INTERRUPTISENTRY); 
CALL INITS$INTS$VECTOR( @INT$VECTOR(2),. INTERRUPT3$ENTRY); 
CALL INIT$INT$VECTOR( @INT$VECTOR(3),.INTERRUPT3SENTRY); 


BRKI$FLAG = FALSE; 2. 
MONITOR$STACKPTR = STACKPTR; 
MONITOR$STACKBASE = STACKBASE; 


NEXT$COMMAND: 


/% 


THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH IS A SEPARATED PROCEDURE. %/ 


CALL STO$CRLF; 
CALL 510500Т5СНАВ(0), 
CALL SIO$OUT$CHAR('.°); 
CALL SIO$GET$CHAR; 
00 1:0 TO LAST(SIO$CMND); 
IF CHAR=SIO$CMND(L) THEN GOTO DISPATCH; 
END; 
GOTO ERROR; | 


DISPATCH: 


ERROR: 
ла 


LAST$COMMAND = I; 

DO CASE I; 
CALL SIO$EXAM$MEM; 
CALL SIO$EXAM$REG; 
CALL SIO$GO; 
CALL SIO$SINGLE$STEP; 
CALL SIO$MOVE; 
CALL SIO$DISPLAY; 
CALL SIO$INPUT; 
CALL SIO$OUTPUT; 
CALL SIO$READ; 
CALL SIO$WRITE; 

END; 

GOTO NEXT$COMMAND; 


THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE МОМІТОЯ AND 
WILL OUTPUT THE ERROR PROMPT TO THE OUTPUT PORT. %/ 


CALL ЗТОЗОПТЗСНАН( "#"); 
GOTO NEXT$COMMAND; 


AFTERSINTERRUPT: 


. 


THIS ROUTING 15 CALLED AFTER AN INTERRUPT ТО DISPLAY THE С 
AND ЯЄЗТОЯЄ THE BREAKPOINTED INSTRUCTION. */ 


“Те 


ГД 
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ТЕ BRKI$FLAG THEN 
DO; 
MEMORY$BRK1 = BRKI$SAVE; 
BRKISFLAG = FALSE; 
ТЕ ((ІР-1) AND 000ЕН)-(88К1,О0ЕР AND ОООЕН) AND 
(ЭНЕ(ІР-1,43»С5)-( ЭНЕ(ВВК1.ОЕҒ,Ш 3 “ВЕК1.5ЕС) THEN 
D9; 
IP з IP ~ 1; 
CALL SIO$OUT$š$STRING(ƏSIO$BREAK$WSG); 
END; 
END; 
CALL SIO$OUT$CHAR('8'); 
CALL ЗТОЗОПТЗИОНО( СЗ); 
CALL SIO$OUTSCHAR(':'); 
CALL STO$SOUTS$SWORD( ТР); 
GOTO МЕХТЗСОММАМО; 
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ЄМО МОМІТОЯ; /% END OF MODULE ®/ 
EOF 


422005 INFORMATION: 


CODE AREA SIZE QF DBH 40590 


CONSTANT AREA SIZE = 0000H 00 
VARIABLE AREA 3122 = 29738 1200 
MAXIMUM STACK 5125 з 2942H 650 
1211 LINES READ 


0 PROGRAM 21829. 3: 


END OF Р,/М-35 СОМ? АТТОН 


х 
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1515-11 PL/M-86 91.1 COMPILATION OF MODULE MONITOR 

NO OBJECT MODULE REQUESTED 

COMPILER INVOKED BY: PLM86 :£1:SERIAL.PLM LARGE OPTIMIZE(2) PAGEWIDTH(95) & 
CODE XREF NOOBJECT PRINT(:F1:SERIAL.PRT) 


$TITLE(*SDK86 SERIAL MONITOR’) 
$NOINTVECTOR 


/а пои ооо ооо о ваа звоно везао оа ваа аа 90 22218206 
ооо ооо ооо сво ооо ос ооо ово нон ооо но 8 0.8 06 


50К-86 MONITOR, V1.2 
06 AUGUST 1979 


(С) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 


ооо ооо ооо вв ваа ава аа ааа ааа аа вана аа ааа ова ааа ваа а ERS 


ABSTRACT 


THIS PROGRAM IS THE ROM BASED SERIAL MONITOR FOR THE 50К-86. ТТ 
PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 
EXAMINE/MODIFY MEMORY AND REGISTERS, CONTROL PROGRAM EXECUTION, 
AND LOAD/SAVE PROGRAMS. 


ENVIRONMENT 


THE SDK SERIAL MONITOR COMMUNICATES WITH THE USER УТА AN INTERACTIVE 
TERMINAL (TTY,CRT) ATTACHED TO THE SERLAL PORT. 


PROGRAM ORGANIZATION 


THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 


1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 
2. COMMON ROUTINES. LOWER LEVEL PROCEDURES 
3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 


CALLING GRAPH 


>> СОММАМО DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN А 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 
AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 
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POINTERS TO THE 50К-46 29920 ADDRESS SPACE ARE IMPLEMENTED WITH 


POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 
»/ 
MONITOR:DO; /% BEGINNING OF MODULE #/ 
ла поборов ооо ооо иона ооо оо ооо о оно зоте 
оно ооо оао 555555552525 5 555 2 ои 213114 
GLOBAL DATA DECLARATIONS MODULE 
ABSTRACT 
THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 
LITERALS (EQUATES), 
MODULE ORGANIZATION 
2222222222:2222222222 
THE MODULE IS DIVIDED INTO 5 SECTIONS: 
1. UTILITY SECTION GLOBAL FLAGS, VARIBLES, EQUATES 
2. 1/0 SECTION 1/0 PORTS,MASKS,AND SPECIAL CHARS 
3. MEMORY ARGUMENTS SECTIONS STRUCTURES FOR POINTERS 
4. REGISTER SECTION USER REGISTER SAVE AREA 
5. BOOT AND 8089 SECTION BOOTSTRAP AND 8089 DESCRIPTOR 
8 / 
/ % 24 001 2 з0 10 10 ваа ааа аа 7. 
. UTILITY SECTION * 
тете рев авт ре гв рата / 
2 1 DECLARE 
INTSVECTOR(5) POINTER; /* INTERRUPT VECTORS #/ 
+“ DECLARE 
MONITORSSTACKPTR WORD, 
MONITORSSTACKBASE WORD; 
ü | DECLARE 
COPYRIGHT(®) ВҮТЕ DATA ("(С) 1978 INTEL CORP’); 
5 4 DECLARE 
BRK 1$FLAG BITE, /* TRUE ТР BREAK SET #/ 
BRK 1$SAVE BYTE, /* INST BREAK SAVE #/ 
CHAR BYTE, /% ONE CHAR LOOK AHEAD 9/ 
CHECK$SUM BYTE, /% PAPER TAPE CHECKSUM */ 
Т ВҮТЕ, /% INDEX */ 
ENDSOFF WORD, /* END OFFSET ADDRESS %/ 
WORD$MODE BYTE, /% WORD MODE FLAG */ 
LASTS3COMMAND BYTE; /% LAST COMMAND SAVE */ 
ó 1 DECLARE 
TRUE LITERALLY ‘OFFH’, 
FALSE LITERALLY ‘OOOH’, 
BREAKSINST LITERALLY ‘CCH’, /% BREAKPOINT INST %/ 
ЗТЕРФТВАР LITERALLY '01008', /% SS TRAP FLAG MASK */ 
USER$INIT3$SP LITERALLY '100Н', /% USER STACK INITIAL */ 
GO$COMMAND LITERALLY "2", /% GO COMMAND CODES %/ 
SS$COMMAND LETERALLY "3", /% SINGLE STEP CODE #/ 
STANDARD$LEN LITERALLY "16", /8 PAPER TAPE DATA REC LEN */ 
MAXS$OELAY LITERALLY "10000"; /% DELAY FOR PAPER ТАРЕ #/ 
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МЕМОКУЗСЗТР BASED МЕМОНУЗСЗТРЗРТА BYTE, 


МЕМОЯУ ОЗЕЯЗТАСК$ РТА POINTER, 
USERSTACK STRUCTURE (OFF WORD, SEG WORD) 
АТ (@MEMORYSUSERSTACK$PTR), 
MEMORY$USERSTACK BASED MEMORY$USERSTACKSPTR WORD; 


/ + 2022 220 0020 2010 009002022120 


ы REGISTER SECTION в 
паавававававававава га аа / 


12 1 DECLARE 

REG(#) BYTE DATA /* REGISTER NAMES 9?/ 
(*AXBXCXDXSPBPSIDICSDSSSESIPFL’), 

REG$INDEX WORD, 

REG$SAV(14) WORD, /9 USER’S SAVED REGS ?/ 

НЕСЗОВО( 3) BYTE DATA 
(7,6,1,3,2,0,9,11,12,8,13), 

SP LITERALLY ‘REG$SAV( Ц)’, 

BP LITERALLY " НЕСЗЗАУ( 5)", 

СЗ LITERALLY 'REG$SAV( 8)", 

05 LITERALLY “ВЕСӚ5АУ( 9)", 

55 LITERALLY " ВЕОЗЗАУ( 10)", 

Е5 LITERALLY " ВЕСЗЗАУ( 11)", 

LP LITERALLY 'REG$SAV(12)', 

PL ` LITERALLY 'REG$SAV(13)'; 


/ + 1000000 000020 за ааа ааа ааа аа ааа аа аа за 


, BOOTSTRAP JUMP AND 8089 VECTOR a 
8889288988988988588988889988888988899898 / 


/9 THIS BOOT CONSISTS OF A LONG JUMP ТО THE BEGINNING OF THE MONITOR 

АТ ЕЕОО„ХХХХ WHERE ХХХХ IS THE STARTING ADDRESS OFFSET (ТР) AND 

MUST BE DETERMINED AFTER EACH COMPILE. ?/ 

13 1 DECLARE 

START$ADDR LITERALLY 'OOQA8H', /% STARTING ADDRESS %/ 
воот1(%) BYTE АТ (OFFFFOH) DATA (ОБАН), /% LONG JUMP OPCODE %/ 
BOOT2(*) WORD АТ (ОҒҒЕҒІН) DATA (START$ADDR), 
BOOT 3( *) WORD АТ (OFFFF3H) DATA (OFFOOH); /% SEGMENT ADDRESS! ?/ 


/% THIS TWO-WORD DATA IS A JUMP TO THE STARTING ADDRESS AND IS LOCATED 
AT THE FIRST LOCATION OF ROM (NO OTHER DATA OR CONSTANT DECLARATIONS 
MAY PRECEDE ІТ). THE JUMP IS ACTUALLY ТО (5ТАНТ-АрОН!)!-4 SINCE THE 
INSTRUCTION IS A RELATIVE JUMP OF LENGTH 3. ?/ 
14 1 DECLARE 
800Т4(9) WORD DATA (OE990H,START$ADDR=-4); /% МОР,ЈМР START-ADDR */ 


/8 THIS BLOCK OF ROM АТ FFFF6-FFFFA IS INITIALIZED FOR THE 8089 
DEVICE AND POINTS ТО A BLOCK OF RAM AT 0100H. #/ 
15 1 DECLARE 
BLOCK$8089 WORD АТ (OFFFF6H) DATA (00018), 
BLOCKS8089G$PTR POINTER АТ (OFFFF8H) DATA (00100Н); 


оао очен ез ле іе аі ғ ж) 


š FILL DECLARATIONS SECTION ? 
оо зао ана а га ваа ааа аа за а 888 / 
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29 


26 


27 
28 


29 


31 


32 


33 


36 


37 
38 


02C1 


02C3 
0208 


О2СА 
02CD 
02СҒ 


0201 
0204 
0205 
0207 


O2DA 
огрс 


‘O2DE 


02Е1 


02E3 
92Е8 
02ЕА 


02Ер 
ОФЕЕ 


02EF 
02F0 


02F2 
02F5 
02F7 


02F9 
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7520 JNZ @2 
DO WHILE CHAR<>11H; /% CONTROL=Q * / 
: STATEMENT # 25 
8121: 
803E660011 CMP CHAR,11H 
7423 JZ 85 
ТЕ SIO$CHAR$RDY THEN 
; STATEMENT й 26 
E8D3FF CALL SITOCHARRDY 
0008 АСЕ АС, 1 
7362 JNB 8121 
DO; 
CHAR = INPUT(SIO$DATA$PORT) AND O7FH; 
; STATEMENT # 28 
BAFOFF MOV ОХ, ОЕЕЕОН 
ЕС ТМ ОХ 
2472 AND AL ТЕН 
A26600 MOV CHAR, AL 
IF CHAR=03H THEN GOTO ERROR; 
; STATEMENT # 29 
3с03 СМР AL, 3H 
7503 JNZ $+5H 
EX925FF JMP ERROR 
END; 
END; 
; STATEMENT # 32 
EBEO JMP @121 
82: 
ELSE IF CHAR = O3H THEN GOTO ERROR; 
; STATEMENT # 33 
803E660003 CMP СНАВ,ЗН 
7503 JNZ $+5H 
E919FF JMP ERROR 
; STATEMENT # 35 
85: 
END SIO$CHECK$CONTROL$CHAR; 
; STATEMENT # 35 
5D POP BP 
СЗ RET 
SIOCHECKCONTROLCHAR ENDP 
SIO$OUT$CHAR: 
: STATEMENT # 36 
/% THIS ROUTINE OUTPUTS THE INPUT PARAMETER TO THE USART OUTPUT 
PORT WHEN USART IS READY FOR OUTPUT (XMIT BUFFER EMPTY). %/ 
SIOOUTCHAR PROC NEAR 
55 PUSH BP 
8BEC MOV ВР, ЭР 
PROCEDURE(C); 
DECLARE C BYTE; 
IF SIO$CHAR$RDY THEN CALL SIO$CHECK$CONTROL$CHAR; 
; STATEMENT # 38 
E8ABFF CALL SIOCHARRDY 
DOD8 RCR AL,1 
7303 JNB 0123 
; STATEMENT # 39 
ЕВВТЕЕ CALL SIOCHECKCONTROLCHAR 
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40 


42 


43 


4% 


45 


48 


50 


О2ЕС 
02ҒҒ 
0390 
0302 


0394 
9397 
ОЗОА 


0308 
930C 


ОЗОЕ 
0310 


9312 
0315 
0316 
0318 


ОЗТА 
0310 
931Е 
9320 


0323 
9325 


9387 
0328 


0325 
032F 


SDK86 SERIAL MONITOR 
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DO WHILE (INPUT(SIO$STAT$PORT) AND SIO$TXRDY)=z2); END; 


; STATEMENT # 140 


8123: 
BAF2FF MOV DX,OFFF2H 
EC IN DX 
4801 TEST АБ, ІН 
7ЦЕВ 42 9123 
ОЧТРУТ(ЗІОФОАТАФРОВТ) з С; 
; STATEMENT # 42 
ВАРОРЕ MOV DX,OFFFOH 
344604 MOV AL, ВР].С 
EE OUT DX 
END; 
; STATEMENT # 43 
5) POP BP 
с20200 RET гн 
SIOOUTCHAR ENDP 
510%5ЕТ%СНАВ: 
; STATEMENT # 44 
/® THIS ROUTINE INPUTS A CHARACTER FROM THE INPUT PORT AND RETURNS 
WITH IT IN THE GLOBAL "СНАА", THE CHARACTER IS ECHOED TO THE 
OUTPUT PORT IF PRINTABLE. 9/ 
SIOGETCHAR PROC NEAR 
55 РИЗН ВР 
ВВЕС MOV ВР,5Р 
PROCEDURE; 
DO WHILE (INPUT(STOSSTAT$PORT) AND SIO$RXRDY)=0;END; 
; STATEMENT # 45 š: 
8125: 
ВАЕ2ЕР MOV DX,OFFF2H 
EC IN DX 
A802 TEST AL,2H 
7%4Е8 JZ 8125 
CHAR = INPUT(SIO$DATA$PORT) AND O7FH; 
; STATEMENT # 47 
BAFOFF MOV DX,OFFFOH 
EC IN DX 
2Ц7Е AND AL,7FH 
A26600 MOV CHAR,AL 
ТЕ CHAR>=ASBL THEN CALL 510300Т545СНАЯ( CHAR); 
; STATEMENT # 43 
3020 СМР AL,20H 
7207 JB 88 
; STATEMENT # 49 
ЕЕЗ56500 PUSH CHAR s 4 
ЕВС1ЕЕ CALL STOOUTCHAR 
83: 
END; 
: STATEMENT # 52 
50 РОР BP 
СЗ RET 
ЗІОСЕТСНАЯ ENDP 
STOSOUT$SBYTE: 


; STATEMENT # š: 


/® THIS ROUTINE OUTPUTS THE SINGLE [INPUT PARAHETER ТО THE USART 


8 
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55 


56 


57 


58 
59 


60 


61 
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IN ASCII HEXADECIMAL FORMAT. %/ 


STOOUTBYTE 
0330 55 PUSH 
0331 8BEC MOV 


PROCEDURE(B); 
DECLARE B BYTE; 


PROC NEAR 
BP 
BP,SP 


CALL SIO$OUT$CHAR(ASCIT(SHR(B,4) AND OFH)); 


: STATEMENT # 53 
Во, ВРЈ.В 
CL,4H 
BL,CL з 
BL,OFH 
ВН, ОН 
СЗ: АЗСТТ BX] 
SIOOUTCHAR 


CALL SITO$OUT$CHAR(ASCII(B AND OFH)); 


; STATEMENT % 54 
BL,£BP].B 
BL,OFH 
Вн, ОН 
СЗ: АЗСТТГ BX] 
SIOOUTCHAR 


; STATEMENT # 55 
AL,[BP].B 
CHECKSUM, AL 


; STATEMENT # 56 
BP 
2H 
ENDP 


0333 8A5E04 MOV 
0336 B104 MOV 
9338 D2EB SHR 
033A 80ЕЗОҒ AND 
0330 8700 MOV 
ОЗЗЕ 2EFF773E PUSH 
0343 E8A9FF CALL 
0346 8A5E04 MOV 
0349 80E30F AND 
034С 8700 MOV 
ОЗЧЕ 2EFF773E PUSH 
0352 E89AFF CALL 
CHECK$SUM = CHECK$SUM - 8; 
0355 8A4604 MOV 
0358 28066700 SUB 
END; 
035C 5D POP 
0350 С20200 RET 
51000ТВҮТЕ 
SIO$OUT$WORD: 


; STATEMENT # 57 


/% THIS ROUTINE OUTPUTS THE INPUT PARAMETER AS ü ASCII HEXADECIMAL 
CHARACTERS TO THE USART OUTPUT PORT. #/ 


STOOUTWORD 
0360 55 PUSH 
0361 8BEC MOV 


PROCEDURE(W); 
DECLARE W WORD; 


PROC NEAR 
BP 
ВР,5Р 


CALL SIO$OUT$BYTE(HIGH(W)); 


; STATEMENT # 59 
АХ,ГВРЈ.И 
AL, AH 
AX . 1 
SIOOUTBYTE 


; STATEMENT # 60 
АХ,ГВРЈ.И 
АХ 4271 
ЗТООПТВУТЕ 
; ЗТАТЕМЕХТ й 61 
ВР 


0363 8B4604 МОУ 
0366 88ЕО МОУ 
0368 50 PUSH 
0359  ЕВСЦЕЕ CALL 
CALL SIO$OUT$BYTE(LOW(W)); 
036C 8B4604 MOV 
036Е 50 PUSH 
0370  ЕЗВОЕЕ CALL 
END; 
0373 5D POP 
0374 с20200 RET 


STOOUTWORD 


2H 
ENDP 
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62 


«м 
КАЈ 


64 


65 


69 


TO 


(4 


~ 


SIOSOUTS$BLANK: 
; STATEMENT # 62 
/9 THIS ROUTINE OUTPUTS ONE BLANK. 9/ 


STOOUTBLANK PROC NEAR 
0377 55 PUSH BP 
0378 8ВЕС MOV BP,SP 


PROCEDURE; 
CALL ЗТОЗОПТЗСНАН( АЗВЕ); 
; STATEMENT # 53 


ОЗТА 8020 MOV AL,20H 
037С 50 PUSH AX 1 
0370 E86FFF CALL 51000ТСНАН 
ЕМР, 
; STATEMENT 9 64 
0383 5р РОР ВР 
0381 C3 ВЕТ 
STOOUTBLANK ENDP 
SIOSOUTSSTRING: 


; STATEMENT # 65 
/% OUTPUTS A STRING POINTED TO BY THE FIRST PARM. 9/ 


STOOUTSTRING PROC NEAR 
0382 55 PUSH BP 
0383 8BEC MOV BP,SP 


PROCEDURE( PTR); 
DECLARE PTR POINTER, STR BASED PTR (1) BYTE; 
L з 9% 
; ЗТАТЕМЕМТ # 57 
0385  с606680000 MOV Т, ОН 
DO WHILE STR(I)<>0; 
; STATEMENT # 58 


06127: 
038A 406890 MOV AL,I 
0380 8400 MOV AH,OH 
ОЗВЕ 89С6 MOV SI,AX 
0391 C4SEO4 LES ВХ,(ВР).РТЯ 
0394 26823800 СМР ES:(BX].STR(SIJ,0H 
0393 7417 44 8128 


CALL STOSOUT$CHAR(STR(I)); 
; STATEMENT # 69 


039A 406800 MOV AGT 
0390 8400 MOV AH,OH 
039F 39С6 MOV 51,АХ 
03А1 СЦБЕОЦ LES ВХ, (ВР].РТЯ 
ОЗАЦ 26FF30 PUSH Е5:(18Х1.5Т8Я(51) 
0347 Е8Ш5ҒЕ CALL SIOOUTCHAR 
[L = [I 5 1; 
; STATEMENT # 70 
O3AA 8006680001 ADD І,ІН 
END; 
; STATEMENT 4 71 
O3AF EBD9 JMP 9127 
9128: 
END; 


; STATEMENT #72 
1387 50 РОР ВР 
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0382 020400 RET 4H 
STOOUTSTRING ENDP 
12: STOSOUT$SHEADER: 


73 


та 


81 


82 


83 


: STATEMENT # 73 
/9 THIS ROUTINE OUTPUTS THE PAPER ТАРЕ HEADER CONSISTING OF ":" 
FOLLOWED BY THE RECORD LENGTH, LOAD ADDRESS, AND THE RECORD TYPE. 
IT INITIALIZES THE CHECKSUM TO ZERO. ?/ 


STOOUTHEADER PROC NEAR 
0385 55 PUSH BP 
0386 8BEC MOV BP,SP 


PROCEDURE(LENGTH,LOAD$ADDR,REC$TYPE); 
DECLARE (LENGTH,REC$TYPE) BYTE, LOAD$SADDR WORD; 
CALL ЗТОЗОПТЗСНАН(":"); 
; STATEMENT # 75 


0388 ВОЗА MOV AL, ЗАН 
ОЗВА 50 PUSH AX ; 1 
ОЗВВ E831FF CALL 51000ТСНАВ 


СНЕСК$50М = 0; 
; STATEMENT # 76 
ОЗВЕ  С606670000 MOV CHECKSUM, ОН 
CALL ЗТОЗОПТЗВУТЕ ( LENGTH); 
; STATEMENT # 77 
ОЗСЗ FF7608 PUSH (BP].LENGTH; 1 
0366 Е867ҒЕ CALL 51000ТВҮТЕ 
CALL SIO$OUT$wORD(LOAD$ADDR); 
; STATEMENT й 78 
0309 FF7606 PUSH (BP].LOADADDR; 1 | 
ОЗСС E891FF CALL SLOOUTWORD 
CALL SIO$OUT$BYTE(REC$TYPE); 
; STATEMENT # 79 


ОЗСЕ FF7604 PUSH (BP).RECTYPE;. 1 
0302 ЕВ5ВЕЕ CALL SIOOUTBYTE 
END; 
; STATEMENT # 80 
0305 5D POP BP 
0306  с20600 RET 6H 
SIOOUTHEADER ENDP 


SIO$8251$SETTLINGS$DELAY: 
; STATEMENT # 31 
/* THIS DELAY ROUTINE ALLOWS THE USART SUFFICIENT TIME 
TO SETTLE AFTER WRITE OPERATIONS. ®/ 


SI108251SETTLINGDELAY PROC NEAR 
03D9 55 PUSH BP 
ОЗРА 8BEC MOV BP,SP 
PROCEDURE; 


I = SHR(OFFH,OFFH); . 
; STATEMENT # 32 


030С BOFF МОМ AL,OFFH 
03DE BIFF MOV CL,OFFH 
ОЗБО D253 SHR AL, CL 
ОЗЕ2 А26800 MOV I,AL 
END; 
; STATEMENT й 33 
0385 5D | РОР ВР 


0356 63 НЕТ 
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84 


85 
86 


87 


89 


90 


91 


92 


SI08251SETTLINGDELAY ENDP 


/R88859898838888838.8288. ааа ваа ава ааа 


ы UTILITY ROUTINES SECTION s 
ооо со оно ваа ава на ва ваа ава / 


1 SIO$VALID$HEX: 


; STATEMENT # 84 
/% THIS ROUTINE TESTS IF THE INPUT PARM IS А VALID ASCII HEX DIGIT 
AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO AND FALSE 


IF NOT. #/ 
STOVALIDHEX PROC NEAR 
ОЗЕТ 55 PUSH BP 
03Е8 8BEC MOV BP,SP 


PROCEDURE (H) BYTE; 


2 DECLARE H BYTE; 
2 DO 120 TO LAST( ASCII); 
; STATEMENT 
ОЗБА  С506680000 MOV 1,0Н 
8129: 
ОЗЕР 803Е68000Ғ СМР І,ОРН 
ОЗЕ 771A ЗА 8130 
3 IF Н-А5СТІ(І) THEN RETURN TRUE; 
; STATEMENT 
03Е6 8A4604 MOV AL,(BP].H 
0329 8A1E6800 MOV BL, I 
03FD 8700 MOV ЗН, ОН 
ОЗЕЕ  СЕЗАЦТЗЕ СМР AL.CS: АЗСТТГ BX] 
0403 7504 JNZ 89 
; STATEMENT 
0405 BOFF MOV AL,OFFH 
0407 ЕВОЭ JMP 93 
99: 
3 END; 
; STATEMENT 
9409 8006680001 ADD I, ти 
040Е 75рЕ JNZ 0129 
8130: 
2 RETURN FALSE; 
; STATEMENT 
0410 8000 MOV AL,OH 
23: 
0412 5р РОР ВР 
0413 620200 RET 2H 
2 END; 
. ; STATEMENT 
SIOVALIDHEX ENDP 
t SIO$HEX: 


86 


87 


88 


89 


30 


91 


; STATEMENT # 92 
/9 THIS ROUTINE CONVERTS THE INPUT PARM FROM ASCII TO ITS BINARY 


EQUIVALENT AND RETURNS IT AS THE VALUE OF THE PROCEDURE. 


IS MADE FOR INPUT VALIDITY. #/ 
STOHEX PROC NEAR 
0415 55 PUSH BP 
0417  ЗВЕС MOV BP,SP 


NO 


CHECK 
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PROCEDURE(C) WORD; 


DOUBLE(C-390H); 
; STATEMENT # 34 
[BP].C,39H 
910 
“ STATEMENT 8 95 
AL, ВРЈ.С 
AL,30H 
өц 


3761; 

; STATEMENT # 95 
AL. (8216 
AL,37H 


; STATEMENT # 98 


ТР "СНАКА" IS A VALID FIRST 
NAME AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO. 


PROC NEAR 
BP 
BP,SP 


; STATEMENT # 99 
Т, ОН 
9133 


I,2H 
8132 
I, ТАН 
8132 


ТЕ CHAR=REG(I) THEN RETURN TRUE; 


93 г DECLARE С BYTE; 

94 2 IF C<='9' THEN RETURN 
0419 39780439 CMP 
041D 7707 ЧА 
ОЦТЕ ВАЦБОЦ MOV 
0422 2030 508 
0424 2805 ЈМР 

910: 

96 2 ELSE RETURN DOUBLE(C- 
0426 8A4604 MOV 
0429 2037 SUB 

0%: 
0%2В ВЦОО MOV 
0420 50 РОР 
042Е С20200 RET 

97 2 ЕМО; 

5ТОНЕХ ЕМОР 
98 1 SIO$VALID$REG$FIRST: 
/% THIS ROUTINE CHECKS 
STOVALIDREGFIRST 
0431 55 PUSH 
0432 ВВЕС MOV 
PROCEDURE BYTE; 

99 2 DO [20 TO 26 BY 2; 
0434 С606680000 MOV 
0439 EBO7 JMP 

0131: 
0438 8006680002 ADD 
0440 7214 JB 
@133: 
0442 803Е68001А CMP 
0447 7713 JA 
100 3 
0449 406600 MOV 
ОЦЦС 8A1E6800 MOV 
0450 В790 MOV 
0452 2ЕЗАШ758 СМР 
0456 75ЕЗ JNZ 
9458 BOFF MOV 
045А 5D POP 
O45B C3 RET 
102 3 END; 
8132: 
103 2 RETURN FALSE; 
045С 8000 MOV 


; STATEMENT # 100 


АС, С3$ : ВЕС (ВХ ] 
8131 
; ФТАТЕМЕМТ # 101 
AL,OFFH 
BP 


; STATEMENT # 102 


; STATEMENT # 103 


АБ, ЭН 


24:35 


LETTER OF A REGISTER 
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O4SE 50 POP BP 
О45Р СЗ НЕТ 
104 2 ZND; 
: STATEMENT # 104 
STOVALIDREGFIRST ENDP 
195 1 SIOSVALID$REG: 
; STATEMENT # 105 
/* THIS ROUTINE CHECKS IF THE TWO INPUT PARMS TAKEN TOGETHER FORM 
A VALID REGISTER NAME. ТТ SEARCHES THE REGISTER TABLE AND IF А 
MATCH IS FOUND, THE GLOBAL 'REG$INDEX' IS SET TO THE INDEX OF THE 
VALID REGISTER AND THE PROCEDURE RETURNS TRUE. IF NO MATCH THE 
PROCEDURE RETURNS FALSE AND НЕСЗТНОЕХ IS UNDEFINED. %/ 
STOVALIDREG PROC NEAR 
0460 55 PUSH BP 
0461 ЗВЕС MOV BP,SP 
PROCEDURE (C1,C2) BYTE; 
106 2 DECLARE (C1,C2) BYTE; 
107 2 DO REG$INDEX=:0 TO 13; 
; STATEMENT # 107 
0463  с7062Е000000 MOV REGINDEX,0OH 
8134: 
0469 833E2E000D СМР REGINDEX,ODH 
046Е 7731 JA @135 
108 3 IF CisREG(REG$SINDEX®2) AND С2-НЕС( НЕСЗТНОЕХФ2 + 1) THEN 
; STATEMENT # 108 
0470 8В1Е2Е00 MOV ВХ, REGINDEX 
0474 01ЕЗ SUL BX, 1 
0476 8A4606 MOV ALC ВР]. 01 
0479 2E3A4758 CMP AL,CS:REG( ВХ) 
0470 BOFF MOV AL,OFFH 
ОЦ7Е 7401 JZ $+3H 
0481 чо INC AX 
0482 ВАЦЕОЧ МОУ CL,{BP].C 
0485 50 PUSH AX ‚1 
0480 2E3A4F59 СМР CL,CS:REG(BX+1H] 
ОЧЗА BOFF MOV AL,OFFH 
O48C 7401 JZ $+3H 
048Е Цо INC AX 
ОЧВЕ 59 POP СХ ; 1 
0490 22C1 AND АБЫ, СЫ 
0492 2008 RCR AL, 1 
0494 7304 JNB 813 
109 3 RETURN TRUE; 
; STATEMENT # 109 
0496 BOF F MOV AL,OFFH 
0498 2809 JMP 86 
813: 
110 3 ЕМО, 
; STATEMENT 8 110 
0494 83062E0001 ADD REGINDEX, 1H 
O49F 73C8 JNB 0134 
8135: 
114 2 RETURN FALSE; 
; STATEMENT # 111 
ОЗА1 8000 MOV АБ, ОН 
96: 


14 
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119 


123 


124 
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O4A3 5D POP BP 
ОЦАЦ C20400 RET 4H 
END; 
; STATEMENT # 112 
SIOVALIDREG ENDP 
SIO$CRLF: 
; STATEMENT # 113 
/* THIS ROUTINE OUTPUTS А CR AND LF TO THE OUTPUT PORT. #/ 
SIOCRLF PROC NEAR | 
O4AT 55 PUSH BP 
O4A8 8BEC MOV BP,SP 
PROCEDURE; 
CALL SIO$OUT$CHAR(ASCR); 
; STATEMENT # 114 
ОЧАА BOOD MOV AL,ODH 
ОЧАС 50 PUSH AX ; 1 
O4AD E83FFE CALL 51000ТСНАН 


CALL SIO$OUT$CHAR(ASLF); 


; STATEMENT # 115 


0480 BOOA MOV AL,OAH 
O4B2 50 PUSH AX ‚л 
0483 E839FE CALL STOOUTCHAR 
END; 
: ; STATEMENT # 116 
0486 50 РОР ВР 
0487 СЗ RET 
STOCRLF ENDP 
SIO$TEST$WORD$MODE: 


; 
/9 THIS PROCEDURE TESTS FOR А "И" FOLLOWING THE COMMAND AND ТЕ 50 
SETS THE FLAG 'WORD$MODE TO TRUE OR FALSE OTHERWISE. 


STATEMENT # 117 


OPTIONAL BLANK FOLLOWING COMMAND. "/ 


SIOTESTWORDMODE 
0488 55 РЈ5Н 
0489 8BEC MOV 
PROCEDURE; 


WORD$MODE = FALSE; 


O4BB С606690000 MOV 
CALL STO$GET$CHAR; 
ОЧСО ES84CFE CALL 
IF CHAR='W' THEN 
04С3 803Е660057 СМР 
04С8 7508 JNZ 


DO; 
WORD$MODE = TRUE; 


PROC NEAR 
BP 
BP,SP 


; STATEMENT # 118 
НОКОМООЕ , ОН 


; STATEMENT # 119 
STOGETCHAR 


: STATEMENT # 120 
CHAR,57H 
814 


; STATEMENT # 122 
WORDMODE,OFFH 


: STATEMENT # 123 
SIOGETCHAR 


ОЧСА C6066900FF MOV 

CALL SIO$GETS$CHAR; 
ОЧСЕ E83DFE CALL 

END; 


314; 


SCANS OFF 


PAGE 
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тет 


128 


131 


133 


134 
135 


м го 


0402 
0407 


0409 


O4DC 
O4DD 


O4DE 
O4DF 


O4E 1 


ОЦЕЦ 
04Е9 


ОЦЕВ 


ОЦЕЕ 
ОЦЕЕ 


ОЦЕО 
ОЦЕТ 


ОЦЕЗ 
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IF CHAR=ASBL THEN 

; STATEMENT # 125 е 
803Е660020 СМР CHAR,20H 
7503 JNZ 815 

CALL ЗТОЗСЕТЗСНАН: 

; STATEMENT # 126 й 

E833FE CALL SIOGETCHAR 
815: 
END; 

; STATEMENT # 127 
5D POP BP 
СЗ RET | 

STOTESTWORDMODE ENDP \ 
STOSSCAN$BLANK: 
; STATEMENT # 128 
и? THIS ROUTINE IS CALLED AFTER A COMMAND LETTER ТО SCAN OFF THE 
OPTIONAL BLANK. */ 
STOSCANBLANK PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE; 
CALL ЗТОЗСЕТЗСНАН; 

; STATEMENT # 129 

E82BFE CALL ЗІОСЕТСНАВ 
ТЕ CHAR=ASBL THEN .- 

; STATEMENT # 130 | h. 
803Е660020 СМР CHAR,20H <? 
7503 JNZ 816 ” 

CALL 510%С6ЕТ%СНАВ; 

; STATEMENT # 131 

E821FE CALL SIOGETCHAR 
016: 
ЕНО; 

; STATEMENT # 132 
50 РОР ВР 
СЗ RET 

SIOSCANBLANK ENDP 
92990 0 оо оо нав оо ооо ооо воа ва ва ва ва ваа аа 
,. ARGUMENT EXPRESSION EVALUATOR SECTION % 
ооо ооо аа аа оа вола аа аа ааа ав ааа ааа аа аа ва / 
SIO$GET$WORD: 
; STATEMENT # 133 
/% THIS ROUTINE READS CHARS FROM THE INPUT PORT AND EVALUATES 
AN EXPRESSION CONSISTING OF '+-' AND OPERANDS OF HEX NUMBERS ы 
AND REGISTER NAMES. %/ 
SIOGETWORD PROC NEAR 
55 РОЗН ВР 
8BEC MOV BP,SP 
PROCEDURE WORD; 
DECLARE (SAVE,W) WORD, (OPER,T) BYTE; 
OPER = "+"; 

; STATEMENT # 135 

с606680028 MOV OPER, 2ВЕ 
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136 2 
ОЦЕВ 
137 2 
138 3 
O4FE 
0501 
139 3 
0504 
140 3 
0504 
0500 
050Е 
141 3 
142 4 
0511 
143 4 
0514 
0518 
051C 
051Е 
0521 
144 ц 
145 5 
0523 
0527 
0529 
052С 
146 5 
052Р 
147 5 
0532 
0537 
0539 
053С 
0540 
148 5 
149 4 
0542 
0546 
0549 


150 


Ч з 0; 
: STATEMENT 
C7064E000000 MOV м, ОН 
DO WHILE TRUE; 
: STATEMENT 
8136: 
Т = СНАВ; 
; STATEMENT 
406600 MOV AL,CHAR 
А26СОО MOV T,AL 
SAVE = 0; | 
; ЗТАТЕМЕНТ 
C7064C000000 MOV SAVE, ОН 
IF SIO$VALID$REG$FIRST THEN 
; STATEMENT 
ЕВ2ЦЕЕ CALL SIOVALIDREGFIRST 
0008 RCR AL,1 
733B JNB 017 
DO; 
CALL SIO$GETS$CHAR; 
; STATEMENT 
ЕВЕВЕО CALL SIOGETCHAR 
ТЕ SIO$VALID$REG(T,CHAR) THEN 
: STATEMENT 
FF366C00 PUSH Т : 1 
ЕЕЗ66600 РОЗН СНАВ : 2 
ЕВЧТЕР CALL SIOVALIDREG 
2008 RCR AL, 1 
731F JNB 818 
DO; 
SAVE = REG$SAV(REG$INDEX); 
; STATEMENT 
8B1E2E00 MOV BX, REGINDEX 
D1E3 SHL BX, 1 
8B4730 MOV АХ, НЕСЗАУГ BX] 
АЗЦСОО MOV SAVE, АХ 
CALL SIO$GET$CHAR; 
; STATEMENT 
E8DDFD CALL SIOGETCHAR 
GOTO EVAL; 
; STATEMENT 
07: 
803E6B002B CMP OPER, 2ВН 
7548 JNZ EVAL 
A14C00 MOV AX,SAVE 
01064E00 ADD М, АХ 
EB46 JMP @22 
END; 
; STATEMENT 
018: 
ELSE 
SAVE = SIO$HEX(T); 
; STATEMENT 
FF 366C00 PUSH Т ; 1 
E8CDFE CALL SIOHEX 
A34C00 MOV SAVE, АХ 
END; 


136 


127 


139 


140 


146 


147 


148 


149 
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#17: 
151 3 ТЕ NOT(SIO$VALID$HEX(T)) THEN GOTO ERROR; 
; STATEMENT # 151 
054С FF366C00 PUSH т ° 4 
0550 ES894FE CALL SIOVALIDHEX 
0553 2600 NOT AL 
0555 2008 RCR AL, 1 
0557 7303 JNB $+5H 
0559 ЕЭААЕС ЈМР ERROR 
153 3 DO WHILE SIO$VALID$HEX(CHAR); 
; STATEMENT # 153 
0138: 
055С FF366600 РОЗН CHAR » 4 
0560 ES884FE CALL SIOVALIDHEX 
0563 0008 АСА AL, 1 
0565 73CB JNB 87 
154 4 SAVE з SHL( SAVE, Ц) + SIO$HEX(CHAR); 
: STATEMENT # 154 
0567 A14C00 MOV АХ, SAVE 
056A B104 MOV CL, ЗН 
056C  ОЗЕО SHL АХ, CL 
0568 50 PUSH AX ; 1 
0567 FF366600 PUSH CHAR $ 
0573  ЕЗАОРЕ CALL ЗІОНЕХ 
0576 59 РОР СХ 5-3 
0577 03С1 ADD AX,CX 
0579 АЗ%С00 MOV SAVE,AX 
155 4 CALL SIO$GETSCHAR; 
; STATEMENT # 155 
057С E890FD CALL ЗТОСЕТСНАЯ 
156 4 END; 
; STATEMENT # 156 
057Р EBDB JMP 8138 
157 3 EVAL: ТЕ OPER='+’ THEN 
; STATEMENT # 157 
EVAL: 
158 3 Ч = W + SAVE; 
ELSE 
159 3 W = Я - SAVE; 
; STATEMENT # 159 
0581 А1%С00 MOV AX,SAVE 
0584 29064E00 SUB М, АХ 
822: 
160 3 ТЕ CHAR=sASCR OR CHAR=':° ОД СНАА-"," THEN 
; STATEMENT # 160 
0588 406600 MOV AL,CHAR 
0588 3С00 CMP AL,ODH 
0580 BOFF MOV AL,OFFH 
058Е 7401 42 $+3H 
0591 40 INC AX 
0592 50 РЈ5Н АХ ; 1 
0593 803E66003A CMP CHAR, ЗАН 
0598 BOFF MOV AL,OFFH 
059A 7401 JZ $+3H 
059 С 10 INC AX 
0590 59 РОР CX ; 1 
0592 ОАС1 OR AL, СТ, 


PAGE 
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0540 5) PUSH АХ . 1 
0541 8)3Е66002С СМР СНАВ,2СН 
05А6 ВЈЕРЕ MOV AL,OFFH 
0548 7401 JZ $+3H 
OSAA 4) INC AX 
ОБАВ 5) РОР Cx . 1 
05АС OAC1 ОВ AL,CL 
OSAE 0205 RCR AL, 1 
0580 7305 JNB 823 
151 3 RETURN Ч, 
; STATEMENT # 161 
05B2 A14500 MOV АХ, И 
0585 50 РОР ВР 
0586 C3 RET 
823: 
162 3 ТЕ СНАЕ2'+' OR СНАВ-" -" THEN 
; STATEMENT # 162 
0587 823566002Вв СМР СНАВ,2ВН 
05ВС ВОЕГг МОУ AL,OFFH 
OSBE 7401 JZ $+3H 
05С0 4) INC АХ 
05С1 59 PUSH AX 5-3 
0502 8933:660020 САР CHAR, 2рн 
05С7 ВОЕЕ MOV AL,OFFH 
05С9 7401 92 $+3Н 
05СВ 40 ІМС АХ 
05СС 53 РОР CX ; 1 
05СО OAC! ОВ АС, CL 
ОБСЕ рора АСВ АС, 1 
0501 7203 УВ $+5Н 
0503 Е930ЕС ЈМР ERROR 
163 3 OPER = CHAR; 
; STATEMENT й 153 
05D6 AQ6600 MOV AL,CHAR 
0509 126800 MOV OPER, AL 
ELSE 
164 3 GOTO ERROR; 
165 3 CALL SIO$GETS$CHAR; 
; STATEMENT # 165 
05DC ЕЗЗОЕО CALL SIOGETCHAR 
166 3 END; 
; STATEMENT # 166 
ОБОЕ ЕОТСЕЕ ЈМР 9136 
8137: 
167 2 END; 
; STATEMENT # 167 
05Е2 50 РОР ВР 
0523 СЗ ВЕТ 
STOGETWORD ENDP 
168 1 SIO$GET$ADDR: 
: STATEMENT # 158 
из THIS ROUTINE ACCEPTS A VALID ADDRESS EXPRESSION CONSISTING 
OF AN OPTIONAL 4560»: AND AN DISPLACEMENT, %/ 
STOGETADDR PROC NEAR 
05ЕШ 55 PUSH BP 
0555 ВВЕС МОУ ВР, ЗР 


19 


199 


170 


172 


174 


175 


го 


го 


го 


0567 
ОБЕА 
05Ер 


09521 
255 
05F7 


05ҒА 
05FF 


0601 


0604 
0607 
O60A 


05ЈЕ 
0511 
1614 


9617 
9515 
1915 


0621 
9622 


9625 
2025 


9628 


50535 SERTAL МОХІТОЯ 


PRICESOURE( PTR, DEFAULTS$SSASE); 


DECLARE PTR POINTER, 


DEC AULTS$BASE WORD, 


ARS BASED PTR STRUCTURE (OFF WORD, SEG WORD); 


ARG.SEG = 


8B4604 MOV 


045206 Les 
26894792 MOV 


DECAULTSBASE; 


: STATEMENT 
АХ, Вр]. DEFAULTBASE 
ВХ, 5P].PTR 
$3: АЯСГВХ+2Н],АХ 


ARI з 214344 анти; 


; STATEMEUT 


32025 CALL STIGTTWORD 
(45:06 „Ба BX," 3P].PTR 
268327 MOV 8Е5:42278Х1|,АХ 
ТЕ CHAR=':' THEN 
‚ : STATEMENT 
301556333А СМР CHAR, ЗАЗ 
7529 JNZ 325 
92; 
CALL SID2šGET$CHAR; 
; STATEMENT 
ESOBFD CALL STOGETCHAR 
ARG.SES з АЙйЙО.О7У; 
; STATEMENT 
04535936 455 ВХ, ВР).РТА 
258807 MOV AX, ES: ARG( BX) 
20894702 MOV SS:ARG( ВХ+2Н] ‚АХ 
ARG.OFF = ЭГОЗСЕТЗ МОВО; 
; STATEMENT 
ЕЗОЕЕЕ CALL STOGETWORD 
01455326 Les ВХ, ВР1|.РТЯ 
268907 MOV ES: АНСГВХ |, АХ 
ТЕ СНАН-!:" THEN СОТО ERROR; 
; STATEMENT 
823%#5°203A СМ? CHAR, ЗАЧ 
7523 JNZ $+5Н 
ЕЗЕ5ЕВ Јмр ERROR 
; STATEMENT 
END; 
326: 
END; 
; STATEMENT 
50 РО? ЗР 
020600 RET 5H 
STOGETADDR ЕЧОР 


STISUPOATESTP: 


/9 THIS PROCEDURE 15 CALLED ЗУ SINGLE 


; STATEMENT 
51252 


ІР AND INSTRUCTION 3175 AND JPEN THE ЇР 


STIUPDATETP 
59 PUSH 
ЗВЕС MOV 


PROCEDURE; 
САС. STISOUTSILANS ; 


ES4CFD CALL 


PROC NEAR 


BP 
Sf, SP 

$ STATEMENT 
STOOUTBLANX 


CALL STOSOUTSWORD( TP); 


# 179 


9 171 


# 172 


8 175 


2 178 


2 139 


2 131 
AND. SO T2 OUTPUT THE 
FOR INPUT., %/ 


"ЧЛ Ret 
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; STATEMENT й 183 
0628 FF364800 PUSH REGSAV+18H; 1 
O62F E82EFD CALL SILOOUTWORD 
184 2 CSIP.SEG = CS; 
; STATEMENT # 184 
0632 A14000 MOV AX, REGSAV+10H 
0635 А32800 MOV CSIP+2H,AX 
185 2 CSIP.OFF = IP; 
“ STATEMENT # 185 
0638 А14800 MOV AX, REGSAV+18H 
0638 А32600 MOV CSIP, АХ 
186 2 CALL SIO$OUT$CHAR('-'); 
> STATEMENT # 186. 
063E 8020 MOV AL,2DH 
0640 50 PUSH AX 4:24 
0641 ЕЗАВЕС CALL 51000ТСНАВ 
187 2 CALL SIO$OUT$BLANK; 
; STATEMENT % 187 
0644 E830FD CALL SIOOUTBLANK 
183 2 CALL SLO$OUTS$BYTE(MEMORY$CSIP); 
; STATEMENT # 188 
0647 C41E2600 LES ВХ, МЕМОВУСЗТРРТЯ 
0648 26FF37 PUSH ES:MEMORYCSIP([ BX] 
0648 E8DFFC CALL 51000ТВҮТЕ 
189 2 CALL SIO$OUT$BLANK; 
; STATEMENT # 189 
0651 £€823FD CALL SIOOUTBLANK 
199 2 CALL SIO$GET$CHAR; 
; STATEMENT # 190 
0654 E8B8FC CALL SIOGETCHAR 
191 2 IF CHAR<>',' AND CHAR<>ASCR THEN CALL SIO$GET$ADDR(@CSIP,CS); 
; STATEMENT # 191 
0657 803Е66002С CMP CHAR, 2CH 
065С BOFF MOV AL,OFFH 
065Е 7501 JNZ $+3H 
0660 40 INC AX 
0661 50 PUSH AX ; 1 
0662 803E66000D СМР СНАВ, Орн 
0667 ВОЕҒ MOV AL,OFFH 
0669 7501 JNZ $+3H 
0668 10 ІМС АХ 
066C 59 РОР CX 5-1 
066D 22С1 AND ALCL 
066Е 0008 RCR AL,1 
0671 7300 JNB 028 
; STATEMENT # 192 
0673 80062600 СЕА АХ, СЗТР 
0677 1E РИЗН 05 ; 1 
0678 50 PUSH АХ : 2 
0679 FF364000 PUSH REGSAV+10H; 3 
0670 ES864FF CALL SIOGETADDR 
828 
193 2 END; 
; STATEMENT # 193 
0680 5D POP BP 
0681 C3 RET 


ЗТОПРОАТЕТР ENDP 


сл 


2 
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194 


195 
196 


197 


198 


199 


200 


201 


202 


203 


294 
295 


гә ғә 


17 
гэ 
го 


1%18 0 0002 20 0 00022002 21202 00020 0200282 5 


9 РАРЕН ТАРЕ READ SECTION ы 
посовзсосечосовозеваовазе февзее / 


STOSREADSCHAR: 
; STATEMENT š 194 
/9 THIS PROCEDURE READS А BYTE FROM TUS PAPER TAPE READER ЈЕ THE TTY 
BY ACTIVATING ОТА, SAMPLING OSR FOR THE START BIT, DEACTIVATING 
DTR WHEN THE START BIT APPEARS, AND READING THE DATUM FROM TYE 
USART. TO PROVIDE А HOLD-OFF CAPASILITY FOR THE LOAD COMMAN:: 
ONLY (NOT INTENDED POR TTY PAPER TAPS) CONTROL-S WILL CAUSE 7415 
ROUTINE TO WAIT FOR A CORRESPONDING CONTROL-Q ТО BE READ 82231: 
CONTINUING. ?/ 


STOREADCHAR PROC NEAR 
0682 55 PUSH ЗР 
0683 ЗВЕС MOV BP,SP 


PROCEDURE BYTE; 
DECLARE DELAY WORD; 


LOOP: 
; STATEMENT # 135 
LOOP: 
00ТРОТ(51045ТАТУРОНТ) з 510332513078302М, /% OTR ON */ 
0685 BAF2FF мо“ ОХ,ОРРЕО2Н 
0688 8027 MOV AL, 27d 
068А EE OUT DX 
DELAY з 0; 
> STATEMENT 6 127 
2688 6572852020090 ADV DELAY,OH 
DO WHILE (INPUT(STI$STATSPORT) AND 51030580Ү1):2, /®МАТТ STAR ТРИ 
; STATEMENT 9 198 
9142: 
0691  ЗАЕФ2ЕЕ MOV ОХ, ОЕЕЕЗЧ 
0694 25 IN гр 
9695 А880 TEST AL, ЗОЯ 
0697 7517 JNZ 9141 
DELAY = DELAY + 1; 
; STATEMENT 9 199 
0699 415200 MOV АХ, DELAY 
969C 33С001 ADD АХ, 1Н 
069? 42035220 NOV DELAY,AX 
ТЕ DELAY>S4AXZDSLAY THEN 
° ; STATEMENT 2 209 
0642 301027 СМР АХ, 27104 
2645 7254 JB 149 
24% 
ОФТРУТ(ЗІО9ЗТАТФРОЯТ) = 512532515СМ80; га ЭТЭ ЦЕР ез 
“ STATEMENT # 202 
06А7 ЗАЕ2ЕҒ MOV OX,OFFF2H 
06АА 8025 моч AL, 258 
ОБАС 5% ау“ n X 
2072 18108; 
. STATESMEN g 2393 
9540 535552 J: P САВО 


Баш 
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212 


213 


214 


217 
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9141: | 
OUTPUT(SIOSSTATS$PORT) = 


. 
, 


SI0$8251$CMND; 


STATEMENT # 205 


STATEMENT # 206 


/% OTR OFF #7 


/% WAIT LOOP #/ 


a / 


0680 BAF2FF MOV DX,OFFF2H 
0683 8025 МОУ AL,25H 
06B5 ЕЕ OUT DX 
DO WHILE (INPUT(SIO$STAT$PORT) AND SIO$RXRDY)=9;END; 
; STATEMENT # 207 
9142; 
9686 ВАЕОЕЕ MOV DX,OFFF2H 
0689 EC IN DX 
ОбВА A392 TEST AL,2H 
06ВС 74F8 JZ 81142 
CALL STO$CHECKSCONTROLSCHAR; 
; STATEMENT # 299 
ОбВЕ ЕЗЕ2ЕВ CALL STOCHECKCONTROLCHAR 
ТЕ CHAR = 11H THEN GOTO LOOP; /% GET ANOTHER ТЕ CTL=Q %/ 
; STATEMENT 48 210 
06C1 803Е660011 СМР CHAR,11H 
06с5 74BD JZ LOOP 
RETURN CHAR; 
; STATEMENT # 212 
06С8 106500 MOV AL,CHAR 
обсв 5D POP ВР 
0600 c RET 
END; 
; STATEMENT # 213 
ЗТОРЕЛОСВАЗ ENDP 
SLOSREACSEYTL: 
; STATEMENT # 214 
/а THIS ROUTINE READS A BYTES FROM THE PAPER TAPE READER. 
ЗТОКЕАОВТТ 5 PROC МСАК 
06CD 55 РОЗН ВР 
ОбСЕ РВЕС MOV ВР,5Р 
PROCEDURE BYTE; 
DECLARE T BYTE; 
T = LOW(STO$HEX(SIO$READ$CHAR) ); 
; STATEMENT # 215 
0600 ЕЗАЁЕЕ CALL STOREADCHAR 
0603 50 PUSH AX ы 1) 
0604 E83FFD CALL ЗІОНЕХ 
0607 A26D00 MOV TAL 
T = SHL(T,4) + LOW(STO$HEX(STO$READSCHAR! ): 
| > STATEMENT # 417 
06DA A96D90 MOV AL,T 
0600 B194 MOV CL,4H 
O6DF р2Е0 SHL AL, CL 
06Е1 59 PUSH AX 81 
06Е2 28902: CALL STOREADCHAR 
05885 59 Риза АХ а. 2 
0526 23202 САҚЫ 9 ТОНЕХ 
09623 53 РЭР CX 
ОБЕА 023: ADD Ab ‚СА 
05:50 526992 МОМ То, ТЕ 
СВЕ = CHECKSSUN > 
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; STATEMENT # 218 


06ЕР A06D00 MOV AL,T 
06F2 00066700 ADD CHECKSUM, AL 
219 2 RETURN T; 
; STATEMENT # 219 
0626 5D POP BP 
06Е7 СЗ RET 
220 2 END; 
; STATEMENT # 220 
STOREADBYTE ENDP 


221 1 SIO$READšWORD: 
; STATEMENT # 221 
/® THIS ROUTINE READS A WORD FROM THE PAPER TAPE READER AND RETURNS IT 
AS THE VALUE OF THE PROCEDURE. 9/ 


STOREADWORD PROC NEAR 
0628 55 РЈ5Н ВР 
ОбЕ9 8ВЕС MOV BP ,SP 


PROCEDURE WORD; 


222 2 DECLARE T BYTE; 
223 2 T = SIO$READ$BYTE; 
; STATEMENT # 223 
ОбЕВ E8CFFF CALL STOREADBYTe 
06ҒЕ A26E00 MOV T,AL 
224 2 RETURN SHL(DOUBLE(T),8) + DOUBLE(SIO$READSBYTE) ; 
; STATEMENT # 224 
0701 А06Е00 MOV AL,T 
0704 8400 MOV AH, ОН 
0706 8108 MOV CL, 8H 
0708 D3£E0 SHL AX,CL 
079A 50 PUSH AX . 1 
0708 ЕЗВЕРЕ CALL SIOREADBYTE 
ОТОБ 8400 MOV АН,ОН 
0710 59 РОР CX 23 
9711 0361 ADD АХ, СХ 
0713 5D POP BP 
0714 СЗ RET 
225 2 END; 
; STATEMENT # 225 
STOREADWORD ENDP 
/ 9992 ваа ааа аа аа 9 аа аа аа ваа а ааа 98988 а 998988 
Ч INTERRUPT AND RESTORE/EXECUTE SECTION Ы 
9900009 аа воо еее оа ааа ааа а 88 898 888 88 88 888 888809 / 
226 1 SAVESREGISTERS: 
; STATEMENT # 226 
/% THIS ROUTINE IS USED ТО SAVE THE STACKED USER'S REGISTERS IN THE 
MONITOR’S SAVE AREA. %/ 
SAVEREGISTERS PROC NEAR 
42715. 55 PUSH BP 
0716 8BEC MOV BP,SP 
PROCEDURE; 
ent 2 ВР = MEMORYS$SUSERSTACK; 


; STATEMENT: # 227 
0718 CH1Z2A00 LES ВХ,МЕМОНҮОЗЕНЗТАСКРТН 
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239 


231 


232 


233 


~ 
ма) 
чл 


2 36 


237? 


f.) 


971C 
071F 


0722 


9759 
0757 


30К85 SERTAL МОМТТОВ РАЈЕ 
263807 мом АХ,Е5:МЕМОВХУЗСАЗТАСК"ВХ) 
A33A00 MOV REGSAV+0OAH, АХ 
ОЗБЯЗТАСК. ОУ: = USERSTACK.OFF + Ц; 
; STATEMENT # 228 
83062A0094 А21; USERSTACK, 4H 
03 Тед TO 12; /% POP REGISTERS OFF OF STACK #/ 
> STATEMENT # 229 
C605630090 «У Т, ОН 
91%. 
803658000 АР Т, ОАН 
7725 ЈА 3145 
АЕ235А4(8Е05080(1)) = MEMORY$USERSTACK; 
; STATEMENT # 230 
84156390 MOV BL,I 
8700 MOV BH,OH 
ЗЕВАЗЕТЦОО MOV BL,CS:REGORDS BX] 
B700 MOV BH, OH 
ОТЕЗ SHL вх, 1 
C4462A00 LES SI,MEMORYUSERSTACKPTR 
258804 MOV АХ, ЕЗ : МЕМОВУИЗЕНСТАСКГ ЗІ) 
394730 MOV REGSAV(BX],AX 
USERSTACK.OFF = USERSTACK.OFF + 2; 
; STATEMENT # 231 
8306240092 .ADD USERSTACK,2H 
END; 
; STATEMENT # 232 
8905689001 ADD 1,1Н 
7504 | JNZ 9144 
9146: 
SS = USERSTACK.SES; 
; STATEMENT # 233 
A12C00 MOV АХ, USERSTACK+2H 
АЗЦЦОО MOV REGSAV414H, AX 
ЗР = USERSTACK.OFF; 
; STATEMENT # 234 
A12A00 MOV AX, USERSTACK 
A33800 MOV REGSAV+8H, АХ 
END; 
; STATEMENT 8 235 
5D POP ВР 
СЗ RET 
SAVEREGLISTERS ENDP 
ВЕЗТОПЕФЕХЕСИТЕ: 
; ЗТАТЄМЕЧТ # 236 
/а THIS PROCEDURE RESTORES THE STATE 27 THE 03345 МАТЧ1:2 AND 
PASSES CONTROL BACK TO THE USER PROGRAM. ТТ CONTAT:IS A 
MACHINE LANGUAGE SUBROUTINE ТО PERFORM THE РОРР: 1: OF THE 
USER REGISTERS AND ТО EXECUTE AN "18547" то TRANS EF? 733 
TO THE USER'S PROGRAM. */ 
RESTOREEXECUTE PROC мал? 
55 PUSH ЗР 
3REC MOY up ЗР 
PROZEDURE: 
DECLARE НЕЗТОРЕЗЕХХСЮТЯЗСОЮІ(Я» BYTS JATA 
(933H,9ECH, /% МОУ ВР,5Р 
э384,945Н,2024, /% MOV АХ, “ВО, PAR“? +, 


РЬ/М-86 COMPILER 


233 


2 39 


240 


241 


242 


243 


245 


245 


246 


0769 
0766 


076Е 
0772 


0775 


0774 
ОТТЕ 


0781 


0786 
О788 
078С 
078Е 
0793 
0795 
0797 
0794 
ОТ9Е 


07А1 
0746 


ОТАВ 


O7AD 
0780 
0784 





SDK36 SERIAL MONITOR 
08ВН,05ЕН,004Н, /% MOV BX,/BP/.PARM1 a/ 
O8EH,ODOH, /а MOV SS,AX 8 / 
08ВН,0ЕЗН, /9 МОМ 5Р,ВХ 8 / 
050Н, /% РОР ВР “/ 
OSFH, /% РОР DI ./ 
OSEH, /% РОР SI е / 
058Н, /% РОР ВХ 8/ 
О5АН, /а РОР DX 8 / 
059Н, /% РОР СХ ./ 
058Н, /% РОР АХ а / 
ОТЕН, /% РОР 05 е / 
007Н, /8 РОР 55 8 / 
ОСЕН), /8 IRET 8 / 
RESTORESEXECUTE$CODESPTR WORD DATA ( «ВЕЗТОВЕФЕХЕСОТЕЗСОРЕ); 
USERSTACK.SEG = SS; 
; STATEMENT 8 238 
A14400 MOV AX, НЕСЗАУ + 1 ЦН 
A32C00 MOV USERSTACK+2H, АХ 
USERSTACK.OFF = SP; 
; STATEMENT # 239 
A13800 MOV AX, REGSAV+8H 
A32A00 MOV USERSTACK, AX 
ро 120 то 10; /® PUSH USER'S REGISTERS ONTO HIS STACK */ 
; STATEMENT # 240 
C606680000 MOV I, ОН 
9146: 
803Е68000Ү СМР Т, ОАН 
1737 ЈА 8147 
USERSTACK.OFF = ОЗЕВЗТАСК.ОРЕ - 2; 
; STATEMENT # 241 
832Е240002 SUB USERSTACK, 2H 
MEMORY$USERSTACK = REGS$SAV(REG$ORD(10-1)); 
; STATEMENT # 242 
ВЗОА MOV BL,OAH 
24185820 508 BL, I 
8700 MOV BH,OH 
2E8A9F7400 MOV BL,CS:REGORD( ВХ) 
8709 MOV Вн, ОН 
01Е3 SHL BX, 1 
8B4730 MOV AX, REGSAV( ВХ) 
СЦ 1Е2АОО LES ВХ, MEMORYUSERSTACKPTR 
268907 MOV ES:MEMORYUSERSTACK[ ВХ), АХ 
END; 
; STATEMENT # 243 
8006680001 ADD I,1H 
75D2 JNZ 8146 
8147: 
USERSTACK.OFF = USERSTACK.OFF - 2; 
; ЗТАТЕМЕМТ # 245 
832Е240002 SUB USERSTACK,2H 
MEMORY$USERSTACK = BP; 
; STATEMENT # 245 
A13A00 MOV АХ, REGSAV+0AH 
C4¥1E2A00 LES BX,MEMORYUSERSTACKPTR 
268907 MOV £S:MEMORYUSERSTACK(BX],AX 


CALL RESTORESEXECUTE$SCODE$PTR(USERSTACK.OFF,USERSTACK.SEG); 
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249 


де. 


251 


252 


253 


~ 


го 
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0787 
27BB 
ОТВЕ 


ОТ СЦ 
37065 
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; STATEMENT # 246 


FF362A00 PUSH USERSTACK; 1 
ҒЕЗ62С00 PUSH USERSTACK+2H; 2 
2EFF 160400 CALL CS:RESTOREEXECUTECODEPTR 
END; 
; STATEMENT # 247 
50 РОР ВР 
СЗ RET 
RESTOREEXECUTE ENDP 


INTERRUPTI$ENTRY: 


07C6 
9797 
07С8 
07С0 
07СЕ 
07СЕ 
0700 
0701 
0702 
0703 
0706 
0707 
0708 
0709 
ОТОА 
0708 
07DC 
07DD 
97рЕ 


O7DF 
ОТЕО 


07Е2 
ОТЕЦ 


ОТЕ? 


07Е9 , 


ОТЕС 
ОТЕЕ 


07Е1 
ОТЕЦ 


07Е6 


; ФТАТЕМЕМТ # 248 
/8 THIS PROCEDURE IS CALLED WHEN THE СРО IS INTERRUPTED BY EXECUTING 
AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). #/ 


06 PUSH ES 
ТЕ PUSH DS 
2E8E1EA600 MOV DS,CS: @@DATA$FRAME 
50 PUSH AX 
21 PUSH СХ 
52 PUSH DX 
53 PUSH BX 
56 PUSH SI 
27 PUSH DI 
Е80900 CALL INTERRUPTIENTRY 
ЈЕ РОР DI 
5Е РОР 51 
58 РОР BX 
БА РОР ОХ 
59 РОР CX 
58 POP AX 
ЇЕ РОР 05 
07 POP ES 
СЕ IRET 
INTERRUPTIENTRY PROC NEAR 
99 PUSH BP 
ВВЕС MOV BP,SP 


PROCEDURE INTERRUPT 1; 
USERSTACK.OFF = STACKPTR; /% CHANGE ТО MONITOR'S STACK ®/ 

; STATEMENT # 249 

89E0 MOV AX,SP 

A32A00 MOV USERSTACK, AX 


USERSTACK.SEG = STACKBASE; 


; STATEMENT # 250 


ВСОО MOV AX,SS 
A32C00 MOV USERSTACK+2H,AX 
STACKPTR = MONITOR$STACKPTR; 
; STATEMENT # 251 
A11400 MOV AX,MONITORSTACK2TR 
89C4 MOV 5Р, АХ 


ЗТАСКВАЗЕ = MONITOR$STACKBASE; 
; STATEMENT # 252 
A11600 MOV AX,MONITORSTACKBASE 
8EDO MOV SS,AX 
CALL SAVE$REGISTERS; 
; STATEMENT # 253 
ЕВ1СЕЕ CALL SAVEREGISTERS 
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255 


256 


257 


258 


259 


260 
261 


262 


263 


264 


265 
266 


268 


269 


270 


w ГӘ 


O7F9 


O7FF 
0804 


0806 


0809 


080c 


080F 
0814 


0816 
0819 


0810 
081Е 


0822 


0828 


0828 


0830 
0832 


0835 


0838 
0839 


FL = FL AND (МОТ STEP$TRAP); 
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/% CLEAR STEP FLAG 9/ 


; STATEMENT # 254 


/% CONTINUE ТЕ NOT 55 %/ 


# 256 


# 257 


# 258 


# 259 


# 261 


" 262 


ЗТЕР FLAG #/ 
# 263 


# 264 


# 268 


# 270 


"INT 3" 


PAGE 


INSTRUCTION. 
ALSO AN EXTERNAL 


INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE ТО BE 


81264 A00FFFE AND ВЕСЗАУ+ ТАН , OFEFSFH 
ТЕ LAST$COMMAND<>SS$COMMAND THEN 
; STATEMENT # 255 
803£6A0003 CMP LASTCOMMAND, 3H 
7403 JZ 831 
CALL RESTORESEXECUTE; 
; STATEMENT 
ESSDFF CALL RESTOREEXECUTE 
831: 
CALL SIO$CRLF; 
; STATEMENT 
ЕВУВЕС CALL SIOCRLF 
CALL SIOSUPDATESIP; 
; STATEMENT 
E815FE CALL SIQUPDATEIP 
IF CHAR=',' THEN 
; STATEMENT 
803£66002C CMP CHAR, 2CH 
7515 JNZ 832 
00; 
IP = CSIP.OFF; 
; STATEMENT 
A12600 MOV AX,CSIP 
A34800 MOV REGSAV+18H, AX 
CS = CSIP.SEG; 
; STATEMENT 
A12800 MOV AX,CSIP+2H 
A34000 MOV REGSAV+10H,AX 
FL = FL OR ЗТЕРЗТВАР; /% SET 
; STATEMENT 
810ЕЗА000001 OR REGSAV+1AH, 1008 
CALL RESTORESEXECUTE; 
; STATEMENT 
ЕЗЗВЕЕ CALL RESTOREEXECUTE 
END; 
832: 
ТЕ CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT 
803Е660000 СМР CHAR,ODH 
7403 JZ $+5H 
Е901Ғ9 ЈМР ERROR 
СОТО МЕХТЗСОММАМО; 
; STATEMENT 
Е937Е9 ЈМР NEXTCOMMAND 
END; 
INTERRUPTIENTRY ENDP 
INTERRUPT3$ENTRY: 
; STATEMENT 
/9 THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A 
THE MONITOR INSERTS THIS (ОССН) FOR A BREAKPOINT. 
CALLED. %/ 
06 | РОЗН Е 5 
1E PUSH DS 
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271 


212 


273 


274 


215 


276 


211 


278 


219 


ОВЗА 
ОВЗЕ 
0840 
0841 
0842 
0843 
9844 
0845 
0848 
0849 
ОВЧА 
0848 
O84C 
0840 
O84E 
O84F 
0850 


0851 
0852 


0854 
0856 


0859 
0858 


085Е 
0861 


0863 
0866 


0868 


0868 


086Е 
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2E8E1EA609 MOV DS,CS: @@DATA$FRAME 
50 PUSH AX 
51 PUSH CX 
52 PUSH DX 
53 PUSH BX 
56 PUSH SI 
57 PUSH DI 
E80900 CALL INTERRUPT3ENTRY 
5F POP DI 
5Е РОР SI 
5B POP BX 
БА РОР DX 
59 POP CX 
58 POP AX 
1F POP DS 
07 POP ES 
СЕ IRET 
INTERRUPT3ZENTRY PROC NEAR 
55 PUSH BP 
8ВЕС. MOV ВР,ЗР 
PROCEDURE INTERRUPT 3; 
USERSTACK.OFF = STACKPTR; 
; STATEMENT # 271 
89E0 MOV AX,SP 
A32A00 MOV USERSTACK, AX 
USERSTACK.SEG = STACKBASE; 
; STATEMENT # 272 
8С00 MOV AX,SS 
A32C00 MOV USERSTACK+2H,AX 
STACKPTR = MONITOR$STACKPTR; 
; STATEMENT # 273 
A11400 MOV AX,MONITORSTACKPTR 
89C4 MOV SP,AX 
STACKBASE = MONITOR$STACKBASE; 
; STATEMENT # 274 
A11600 MOV AX,MONITORSTACKBASE 
8EDO MOV SS,AX 
CALL SAVE$REGISTERS; 
: STATEMENT # 275 
ЕВААЕЕ CALL SAVEREGISTERS 
CALL 5103СВ15Р,: 
; STATEMENT # 276 
E839FC CALL SIOCRLF 
GOTO AFTER$INTERRUPT; 
; STATEMENT # 277 
Е9А7Е9 ЈМР AFTERINTERRUPT 
END; 
INTERRUPT3ZENTRY ENDP 
INIT$INT$VECTOR: 
; STATEMENT # 279 
/* THIS ROUTINE INITIALIZES АМ INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 


FROM THE ADDRESS OF 


NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE. 


*INT$ROUTINE’ 


CORRECTED BY THE APPROPRIATE 
THE SEGMENT FROM THE 


CURRENT CS REGISTER [5 DETERMINED BY A MACHINE LANGUAGE CODED 


SUBROUTINE. %/ 
INITINTVECTOR 


PROC NEAR 
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280 


281 


282 


283 


0871 
0872 


0874 
0877 
0878 
087c 
0870 


0882 
0885 
0888 
0888 


088Е 
ОВВЕ 


29 
8ВЕС 
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PUSH 
MOV 


BP 


BP,SP 
PROCEDURE( INT$VECTORS$PTR, INT$ROUTINESOFF 
DECLARE INT$VECTORS$PTR POINTER, 


SET); 
INT$ROUTINE$OFFSET WORD, 


РА 


VECTOR BASED ТМТЗУЕСТОВЗРТА STRUCTURE (OFF WORD, SEG WORD), 
"19Н", /% OFFSET FOR PROLOGUE ?/ 
INITSINTSVECTORS$CODE(*®) BYTE DATA 


CORRECTION LITERALLY 


(055Н, 
08ВН,ОЕСН, 
O8CH,OC8H, 
OC4H,OSEH,OO4H, 
026H,089H,007H, 
OSDH, 
0C2H,004H,000H), 


га 
/% 
/% 
/ № 
/% 
/% 
/% 


PUSH ВР в / 
MOV BP,SP е / 
MOV AX,CS 8 / 
LES ВХ,/ВР/.РАВМІ %/ 
MOV ES:W/BX/,AX “/ 
РОР ВР °/ 
RET 4 * / 


ІМІТФІЧТЗУЕСТОЯЗСОРЕЗРТЯ WORD DATA (.INIT$INT$VECTOR$CODE); 


CALL INITSINT$VECTORSCODE$PTR( AVECTOR.SEG); 
; STATEMENT # 281 
BX,£BP].INTVECTORPTR 


С%5Е06 СЕЗ 
26804702 LEA 
06 PUSH 
50 PUSH 
2EFF 160600 CALL 
8B4604 MOV 
83Е819 SUB 
C45E06 LES 
268907 MOV 
END; 
5D POP 
C20600 RET 
INTTINTVECTOR 


AX, ES: ЧЕСТОВ( BX+2H] 


ES 
AX 


CS: INITINTVECTORCODEPTR 
VECTOR.OFF = INT$ROUTINESOFFSET - CORRECTION; 


BP 
6H 


81 
гл 


; STATEMENT # 282 
АХ, [ВР]. INTROUTINEOFFSET 
АХ, 19Н 
BX,°BP].INTVECTORPTR 
ES: VECTOR( BX],AX 


; STATEMENT # 283 


ENDP 


/8 SEGMENT PORTION 


# / 


/% OFFSET PORTION #/ 


/% 10102020 0200 10 200 ве ва ааа ааа ааа аа аа а ае на на аа ао аа ааа а ра аа аа за 
ХАЛЛЕ 


COMMAND MODULE 


ABSTRACT 


- є — о є» 
= = = = 


THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE SOLLOWING SECTIONS: 


1 - 


COMMANDS SECTION 
519500 
STO$SINGLESSTEP 
ЗТОЗЕХАМЗМЕМ 
STOSEXAM$REG 
STOSMOVE 
STOS$DISPLAY 


GO 
SINGLE STEP 


SUBSTITUTE MEMORY 
EXAMINE REGISTER 


MOVE 
DISPLAY BYTES 
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284 


285 


285 


287 
288 


289 


290 


292 


293 


294 


го 


0892 
0893 


0895 


0898 
0890 


089F 


08А2 
08А6 
08А7 
08А8 
ОВАС 


ОВАЕ 
0884 
0886 


0889 
оввр 
08С0 


08C3 


08С7 
08СВ 
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STO$INPUT INPUT PORT 
510300ТРОЫТ OUTPUT PORT 
SIO$WRITE WRITE DATA RECORDS 
SIO$READ READ DATA RECORDS 

2. COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 
NEXT$COMMAND DISPATCH 
ERROR ERROR ROUTINE 


/„чавнанававаанаавааанава 


5 COMMAND SECTION в 
озвепносоваовааован EEE / 


510800: 


; STATEMENT # 284 


/9 IMPLEMENTS THE '00' COMMAND. THE USER MAY SPECIFY A NEW 


ТР: РС AND AN OPTIONAL BREAKPOINT. %/ 


STOGO PROC NEAR 
55 PUSH BP 
ВВЕС MOV BP,SP 
PROCEDURE; 


CALL SILO$UPDATES$TP; 
; STATEMENT # 285 
E88DFD CALL STOUPDATEIP 
ТЕ СНАК-"," THEN /® BREAKPOINT #/ 
; STATEMENT # 286 
803Е66002С СМР СНАВ,2СН 
7536 JNZ 034 
00: 
CALL SIO$GETS$CHAR; 
; STATEMENT # 288 
E86DFA CALL ЗІОСЕТСНАВ 
CALL SIO$GET$ADDR(@BRK1,CSIP.SEG); 
: STATEMENT # 289 


8D062200 LEA АХ, ВЕК 1 

ТЕ РЈ5Н 05 ; 1 
50 PUSH AX З 
ЕЕЗ62800 PUSH CSIP+2H ; 3 
E835FD CALL STOGETADDR 


IF CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT # 299 


803E66000D CMP CHAR,ODH 
7403 JZ $+5H 
EQ94DFY JMP ERROR 


BRKISSAVE = MEMORY$BRK1; 
; STATEMENT # 292 


С%1Е2200 LES ВХ,МЕМОНҮВНКЇРТН 
268407 MOV AL,ES: MEMORY BRK1{ BX] 
A26500 MOV BRKISAVE, AL 


MEMORY$BRK1 = BREAK$INST; 
; STATEMENT # 293 
26С607СС MOV ES:MEMORYBRK1(BX],0CCH 
ТЕ MEMORY$BRK1<>BREAK$INST THEN GOTO ERROR; 
; STATEMENT # 294 
СЦ1Е2200 LES BX,MEMORYBRKIPTR 
26893FCC CMP ES:MEMORYBRK1{£BX],0CCH 
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295 


277 


298 


301 


393 


394 


305 


396 


~ 


ОВСЕ 
0801 


0804 


9809 


0808 


ОВЕО 


0822 


0825 


0853 
08Е3 


O8EE 
98Ғ1 


ОВЕЦ 


ОВЕА 


O8FD 
ОВЕЕ 


OSFF 
0900 


0902 


9995 
092А 
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AND 


7403 JZ $+5Н 
E932F9 JMP ERROR 
BRKI$FLAG = TRUE; 
; STATEMENT 4 296 
СБОббБЧО0ЕЕ MOV BRKIFLAG,OFFH 
END; 
; STATEMENT # 297 
5ВОА ЈМР 937 
934: 
2555 /9 NO BREAKPOINT #/ 
ТЕ CHAR<>ASCR THEN СОТО ERROR; 
; STATEMENT # 298 
803Е660000 СМР CHAR,ODH 
7403 JZ $+5H 
292129 ЈМР ERROR 
; STATEMENT # 299 
837: 
CALL STO$CRLF; 
; STATEMENT # 300 
ESBFFB CALL SLOCRLE 
ТР з СЗІР.ОЄЕ; 
; STATEMENT # 301 
A12600 MOV АХ, СЗТР 
434890 МОУ REGSAV+18H,AX 
CS з CSIP.SEG; 
; STATEMENT # 302 
А 12809 MOV AX,CSTP+2H 
A34000 MOV REGSAV+10H,AX 
FL = FL AND (NOT STEP$TRAP); /® CLEAR ТЕ SET 9/ 
; STATEMENT # 303 
8126ШАООЕГҒҰ АМО REGSAV+1AH,OFEFFH 
CALL RESTORESEXECUTS; 
; STATEMENT # 304 
Е859Ғ% CALL RESTOREEXECUTE 
END; 
; STATEMENT # 305 
5D POP BP 
C3 RET 
51000 ENDP 
STO$SSINGLESSTEP: 
; STATEMENT # 395 
/% IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS IP AND THE 
CURRENT INSTRUCTION BTYE. OPENS CS: ТР FOR INPUT. DEPRESSING 
COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, 
PERIOD TERMINATES THE COMMAND. %/ 
STOSINGLESTEP PROC NEAR 
55 PUSH BP 
ВВЕС MOV ВР, ӘР 
PROCEDURE; 
CALL 5108: РОАТЕЗТР; 
“ STATEMENT # 307 
582060 CALL ЗТОПРОАТЕТР 
(5 СНАНСО»",' THEN СОТО ERROR; 
; STATEMENT # 305 
893E56002C CMP CHAR, 2СН 
7403 JZ 3-5 
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311 


313 


314 


315 


3 15 
317 


318 


321 


322 


323 


324 


го 


090C 


090F 
0912 


0915 
0918 


0918 


0921 


0924 
0925 


0926 
0927 


0929 


092C 
0930 
0931 
0932 
0936 


0939 
093E 
0940 


0943 


0946 
9949 
0948 
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STATEMENT # 310 


STATEMENT # 311 


STATEMENT # 312 


STATEMENT 9 313 


STATEMENT # 314 


STATEMENT # 315 


STATEMENT # 317 


STATEMENT # 318 


STATEMENT # 319 


STATEMENT # 321 


STATEMENT # 322 


STATEMENT # 323 


ЕФЕТЕВ ЈМР ERROR 
IP = CSIP.OFF; 
; 
А12600 MOV АХ, СТР 
A34800 MOV REGSAV+18H, АХ 
CS = CSIP.SEG; 
412800 моу АХ, СЗТР+2Н 
34000 MOV REGSAV+10H, AX 
FL = FL OR ЗТЕРЗТВАР; ~ 
; 
810Е%4000001 OR REGSAV+1AH, 100H 
CALL RESTORESEXECUTE; 
Е8І2ҒЕ CALL RESTOREEXECUTE 
END; 
; 
5р РОР ВР 
сз ВЕТ 
51051МС1,Е5ТЕР ENDP 
ЗТОЗЕХАМЗМЕМ: 
; 
/% IMPLEMENTS THE EXAMINE MEMORY COMMAND. ®/ 
ЗТОЕХАММЕМ PROC NEAR 
55 PUSH BP 
ВВЕС MOV BP,SP 
PROCEDURE; 
DECLARE W WORD; 
CALL SIO$TEST$WORDS$MODE; 
Е88СЕВ CALL SLOTESTWORDMODE 
CALL SIO$GET$ADDR(@ARG1,CS); 
80061400 LEA AX, ARG1 
ЈЕ PUSH DS ; 1 
50 PUSH AX ; 2 
FF364000 PUSH REGSAV+10H; 3 
ЕВАВЕС CALL SLOGETADDR 
ТР CHAR<>',' THEN GOTO ERROR; 
803Е66002С СМР CHAR, 2CH 
7403 12 $+5H 
E9C3F8 JMP ERROR 
DO WHILE TRUE; 
8148: I 
CALL SIO$OUT$BLANK; 
; 
E831FA CALL SILOOUTBLANK 
IF WORD$MODE THEN 
406900 моу AL, WORDMODE 
0008 RCR AL,1 
730C JNE 85! 


CALL STO$OUT$WORD(MEMORYSWORDS$ARG1); 


STATEMENT # 324 


PAGE 
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326 


зет 


328 


329 


333 
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0980 
0951 
0954 
0957 


0959 
0950 
0960 


096 3 
0965 
0966 


0969 


096C 


096Р 
0974 


0976 
0977 


0978 
0970 


097F 
0982 


0985 
098A 
098с 
098Е 
098Е 
0990 
0995 
0997 
0999 
099А 
0998 
0990 
099F 
ОЗА 1 
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C4¥1E1A00 LES BX,MEMORYARGIPTR 
26FF37 PUSH ES:MEMORYWORDARG1£ BX] 
E809FA CALL SIOOUTWORD 
EBOA JMP 942 

841: 

ELSE 


CALL SIO$OUTS$BYTE( MEMORY$ARG1); 
; STATEMENT # 


C41E1A00 LES BX,MEMORYARGIPTR 
26ЕРЗ7 PUSH ЕЗ:МЕМОНҮАНО1ГВХ } 
ЕЗСОЕ9 CALL ЗТООПТВУТЕ 

#42: 


CALL SIO$OUTSCHAR('-'); 
; STATEMENT # 


вого MOV AL,2DH 
50 PUSH AX а 
Е886Ғ9 CALL STOOUTCHAR 


CALL SIO$OUTS$BLANK; 
; STATEMENT # 
ЕВОВРА CALL STOOUTBLANK 
CALL ЗІОЗСЕТУСНАЯ; 
; STATEMENT # 
E8A0F9 CALL STOGETCHAR 
ЇР CHARsASCR THEN RETURN; 
; STATEMENT # 


803E66000D CMP CHAR,ODH 
7502 JNZ 843 
; STATEMENT 8 
50 РОР ВР 
СЗ RET 
943: 


ТЕ CHAR<>',' THEN 
; STATEMENT # 


803E66002C CMP CHAR, ФСН 
745C JZ 044 
00; 
W з SIO$GET$WORD; 
; STATEMENT # 
ЕВ86ЕРВ CALL STOGETWORD 
A35200 MOV W,AX 


IF (CHAR <> ',') AND (CHAR <> ASCR) 
; STATEMENT # 


803Е66002С СМР CHAR,2CH 
BOFF MOV AL,OFFH 
7501 482 $+3H 

%0 INC AX 

50 PUSH AX а 
803Е660000 СМР CHAR,ODH 
BOF F MOV AL,OFFH 
7501 JNZ $+3H 

40 INC AX 

59 РОР CX . 1 
2201 AND АБ, CL 

0008 АСА АС, 1 

7303 JNB $+5H 

Е962Ғ8 ЈМР ERROR 


ТЕ WORD$MODE THEN 


325 


326 


327 


328 


329 


330 


333 


THEN GOTO ERROR; 
334 


РАСЕ 
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337 
338 


339 


341 


342 


343 


344 


346 
347 


348 


350 


351 


= 


= 


кол 


O9A4 
09A7 
09A9 


0948 
ОЗАЕ 
0982 


0985 
0989 
O9BC 


О9СО 


09С2 
09С5 
0969 


О9СС 
09СЕ 
0903 


0906 
0908 


0958 
0960 


09E2 
09E3 


О9ЕЦ 
09Е7 
09Е9 


09ЕВ 
09Ғ0 
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; STATEMENT # 336 


А06900 MOV AL,WORDMODE 
0008 АСК АГ, 1 
7317 JNB @u6 

ро: 


MEMORY$WORD$ARGI = W; 
; STATEMENT # 338 


A15200 MOV AX,W 
C41E1A00 LES BX, MEMORYARGIPTR 
268907 MOV ES:MEMORYWORDARG1(BX],AX 


ТЕ MEMORY$WORD$ARG1<>W THEN GOTO ERROR; 
; STATEMENT # 339 


СЦ1ЕТАОО LES ВХ, МЕМОНХАКС 1РТН 
268807 MOV AX,ES:MEMORYWORDARG1[ BX] 
38065200 СМР AX,W 
EB14 JMP 811 
ЕМО; 
; STATEMENT # 341 
046: 
ELSE 
DO; 
MEMORY$ARG1 = LOW(W); 
; STATEMENT # 343 
A15200 MOV AX,W 
C4¥1E1A00 LES BX,MEMORYARGIPTR 
268807 MOV ES:MEMORYARG1{BX],AL 
ТЕ MEMORY$ARG1<>LOW(W) THEN GOTO ERROR; 
; STATEMENT # 344 
A15200 MOV АХ, И 
СЦ 1ЕТАФО LES BX,MEMORYARGIPTR 
263807 CMP ES:MEMORYARG1(BX],AL 
011: 
7403 42 $+5H 
Е92ВЕ8 ЈМР ERROR 
; STATEMENT # 3155 
END; 
END; 
645: 


ТЕ CHAR=ASCR ТНЕМ RETURN; 
; STATEMENT # 348 


803Е66000р СМР CHAR,ODH 
7502 JNZ 955 
; STATEMENT # 349 
5D POP BP 
C3 RET 
850: 


IF WORD$MODE ТНЕН 
: STATEMENT 4 350 


A06900 MOV AL,WORDMODE 
0008 АСВ АС, 1 
7307 JNB 851 


ARG1.OFF = ARG1.0FF + 2; 
; STATEMENT # 351 
83061A0002 ADD ARG1,2H 
ЕВО5 ЈМР 052 
951: 
ELSE 
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352 3 ARG1.OFF = АВС1,О0ЁР + 1; 
; STATEMENT 352 
09F2 83061A0001 ADD ARG1,1H 
852: 
353 3 CALL SIO$CRLF; 
; STATEMENT 353 
09F7 E8ADFA CALL SIOCRLF 
354 з CALL SIO$OUT$WORD(ARG1.,OFF); 
; STATEMENT 354 
09ҒА FF361A00 PUSH ARG1 . 4 
09ЕЕ E85FF9 CALL STOOUTWORD 
355 3 END; 
: STATEMENT 355 
ДАО E93FFF JMP 8148 
9149: 
356 2 END; 
$ STATEMENT 356 
ОАОЦ 50 РОР ВР 
0405 СЗ RET 
STOEXAMMEM ENDP 
357 1 SIO$EXAM$REG: 
; STATEMENT # 357 
/9 IMPLEMENTS THE EXAMINE REGISTER COMMAND. SCANS FOR A VALID 
REGISTER NAME AND DISPLAYS THE VALUE OF THAT REGISTER WHICH IS 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
UNLESS ІТ IS 'FL' WHICH TERMINATES AS DOES CR. 
ЗТОЕХАМВЕС PROC NEAR 
0406 55 PUSH BP 
0А07 8BEC MOV BP,SP 
PROCEDURE; 
358 2 DECLARE (T,I) BYTE, SAVE WORD; 
359 2 CALL ЗІОЗЗСАНЗВСАНК; 
; STATEMENT 359 
0509 E8D2FA CALL SIOSCANBLANK 
360 2 IF СНАН-А5ЗСН THEN 
; STATEMENT 360 
ОАОС 803Е660000 CMP CHAR,ODH 
OA11 7559 482 853 
361 2 DO; 
362 3 CALL SIO$CRLF; 
; STATEMENT 362 
0А13  Е891БЕА CALL STOCRLPF 
363 3 DO 140 ТО 13; 
; STATEMENT 363 
0A16 C€C606700000 MOV Т.9098 
2150: 
ОА1В 803Е700000 СМР Т, ООН 
0420 7748 ЈА 0151 
364 4 CALL SIO$OUT$BLANK; 
; STATEMENT 364 
0422 E852F9 CALL SIOOUTBLANK 
365 4 CALL STO$OUTSCHAR( НЕС(Т?2)); 
; STATEMENT # 365 
0425 407000 MOV 1121 
0428 8102 MOV CL. 2a 
OA2A F6E1 MUL CL 
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OA2C 

OA2E 

OA32 
365 ч 


0А35 

0438 

ОАЗА 

ОАЗС 

ОАЗЕ 

OA42 
367 ü 


OA4S 

0447 

0А48 
368 4 


OA4B 
ОАЧЕ 
0451 
0453 
0456 


0459 
ОАБЕ 


ОА6О 
371 4 


0A6 3 
0468 


372 3 


ОАбА 
OA6B 
373 3 


371 2 


0А6С 

ОАбЕ 

0471 

0473 

0475 
376 2 


ОА78 
ОА?В 
377 2 


ОАТЕ 
378 а 
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BX,AX 
СЗ: ВЕС! BX] 
SIOOUTCHAR 


CALL STO$OUTSCHAR( REG(I#2+41)); 


; STATEMENT # 366 
AL,I 
CL,2H 
СЕ 
ВХ,АХ 
СЗ: НЕСГВХ+ТН ) 
ЗІООЧТСНАВ 


CALL SIO$OUT$CHAR('='); 


: STATEMENT # 367 
AL, ЗОН 
АХ 5 1 
STOOUTCHAR 


CALL SLOSOUT$WORD(REG$SAV(I)); 


; STATEMENT # 368 
BL,I 
BH,OH 
вх, 1 
НЕСЗАУ BX]; 1 
SLOOUTWORD 


ТЕ Таб THEN CALL ТОЗСА: 


; STATEMENT # 369 


1,68 
954 

; ЗТАТЕМЕМТ # 370 
SIOCRLF 

; STATEMENT # 371 
1,14 
3150 

; STATEMENT # 372 
ВР 


ТЕ NOT(SIO$VALID$REG$FIRST) THEN GOTO ERROR; 


89C3 МОМ 
2ЕЕЕ7758 PUSH 
ЕЗВАЕВ CALL 
A07000 MOV 
8102 МОМ 
F6E1 MUL 
89C3 MOV 
2EFF7759 PUSH 
E8AAF8 CALL 
8030 МОУ 
50 PUSH 
ЕВАЧЕВ CALL 
ВА 1Е7000 МОУ 
8700 MOV 
О1ЕЗ SHL 
FF7730 PUSH 
E807F9 CALL 
803Е700006 СМР 
7503 JNZ 
ЕВЦЦЕА CALL 
854: 

END; 
8006700001 ADD 
7561 JNZ 

0151: 

RETURN; 
5D POP 
СЗ RET 

END; 

853: 
Е8С2Е9 CALL 
Е6р0 NOT 
5008 RCR 
7303 JNB 
EQSEF7 JMP 
Т, = CHAR; 
406600 МОМ 
А26ЕО0 MOV 


CALL SIO$GETSCHAR; 


E88EF8 CALL 


; STATEMENT # 374 


STOVALTDR&EGFIRST 
AL 
AL,1 
$+5H 
ERROR 
; STATEMENT й 375 
AL,CHAR 
T,AL 
; STATEMENT # 377 
ЗІОСЕТСНАВ 


ТР NOT(SIO$VALID$REG(T,CHAR)) THEN GOTO ERROR; 


; ЗТАТЕМЕМТ # 378 


РАСЕ 
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ОА81 
0485 
ОА89 
ОАВС 
OASE 
0490 
0492 
380 г 


0495 
0498 
381 г 


382 3 


0А9В 

0А90 

0А9Е 
383 3 


0АА1 

OAAS 

ОДА? 

ОДА 

ОААС 
388 3 


OAAF 

0АВ1 

OAB2 
385 3 


0АВ5 
386 3 


0188 
387 3 


OABB 
ОАСО 
ОАС2 
ОАСЦ 
ОАС5 
0АС6 
0АСВ 
OacD 
OACF 
OADO 
ОАР 1 
OAD3 
0495 


0А07 
ДАРА 
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FF366F00 PUSH T а 4 
FF366600 PUSH CHAR . ; 2 
Е80ШЕ9 CALL STOVALIDREG 
2600 NOT AL 
0008 АСА AL, 1 
7303 JNB 3-5Н 
6971Е7 ЈМР ERROR 
I = REG$INDEX; 
; STATEMENT 
A12E00 MOV АХ, REGINDEX 
A27000 MOV T,AL 
DO WHILE TRUE; 
; STATEMENT 
@152: 
CALL ЗТОЗОПТЗСНАЯ( "з"); 
; STATEMENT 
8030 мо“ АС, ЗОН 
50 РОЗН АХ 4. 1 
ЕЗЦЕРЗ CALL ЗТООЧТСНАЯ 
CALL SIOSOUTSWORD(REGS$SAV(I)); 
$ STATEMENT 
8A1E7000 MOV BL, L 
B700 МОУ ВН, ЭН 
0153 SHL BX, 1 
FF7730 PUSH REGSAV( BX]; 1 
E8B1F8 CALL SIOOUTWORD 
CALL ФТОЗОЏТЗСНАА("-"). 
; STATEMENT 
8020 MOV AL,2DH 
50 PUSH AX 5 4 
ЕВЗАЕ8 CALL 51000ТСНАН 
CALL ЗІОФОЧТУВСАНК; 
: ЗТАТЕМЕНТ 
ЕВВЕЕВ CALL STOOUTBLANK 
CALL SIO$GETSCHAR; 
: STATEMENT 
E854F8 CALL STOGETCHAR 
IF СНАК<>',' AND CHAR<>ASCR THEN 
; STATEMENT 
803Е66002С СМР СНАЯ, 2СН 
ВОРР МОУ AL,OFFH 
7501 JNZ $+3H 
40 INC АХ 
50 PUSH AX е 4 
803£66000D CMP СНАН,ООН 
BOF F MOV AL,OFFH 
7591 JNZ $+3H 
40 INC АХ 
59 РОР CX ; 1 
2201 АМО АС, СЪ, 
0008 RCR AL, 1 
7333 JNB 857 
00; 


ЗАМЕ = SLO$GETS$WORD; 


E816FA CALL 
A35400 MOV 


380 


381 


382 


383 


384 


385 


386 


387 


; STATEMENT # 389 


ЗТОСЕТИОКО 
ЗАУЕ, АХ 
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390 4 


OADD 
OAE2 
ОАЕЧ 
OAE6 
ОАЕТ 
ОАЕВ 
ОАЕО 
ОАЕЕ 
ОАЕ 1 
ОАЕФ 
ОАЕЗ 
ОАЕ5 
ОАЕТ 
OAFY 
392 4 


OAFC 

0800 

овог 

ОВОЦ 

0807 
393 4 


394 3 


ОВОА 
OBOF 
0B11 
0B13 
0814 
0815 
ОВІА 
081С 
ОВ:Е 
ОВТЕ 
0820 
0822 
OB24 


0B26 
0827 


0828 
397 3 


0820 
398 3 


0830 
0833 
0835 
0837 
0839 
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IF (CHAR <> ' 


" ) AND (CHAR <> ASCR) THEN GOTO ERROR; 


; STATEMENT # 390 


AX . 17 
CHAR,ODH 
AL,OFFH 
$+3H 

AX 

CX 24 
АҺ, CL 

AL, 1 

$+5H 

ERROR 


SAVE; 


; STATEMENT # 392 
BL, I 
BH,OH 
BX, 1 
AX,SAVE 
ВЕСЗАУ[ ВХ] ‚АХ 


ТЕ CHAR=ASCR OR 1-13 THEN RETURN; 


; ЗТАТЕМЕНТ # 394 
СНАК, ООН 
AL,OFFH 
$+3H 
AX 


; STATEMENT # 395 


; STATEMENT # 396 
I, 1H 


; STATEMENT # 397 
SIOCRLF 


CALL SIO$OUT$CHAR(REG(I*#2)); 


803E66002C CMP 
BOFF MOV 
7501 JNZ 
40 INC 
50 PUSH 
803E66000D CMP 
BOFF MOV 
7501 JNZ 
10 ІМС 
59 РОР 
2201 AND 
0008 АСА 
7303 JNB 
E90AF7 ЈМР 
REG$SAV(I) з 
8A1E7000 MOV 
B700 MOV 
01Е3 SHL 
А15400 MOV 
894730 MOV 
END; 

@57: 
803E66000D CMP 
BOFF MOV 
7401 92 
40 INC 
50 PUSH 
803E79000D CMP 
BOFF MOV 
7401 JZ 
4Q INC 
59 POP 
OAC1 OR 
DOD8 RCR 
1302 JNB 
5D POP 
C3 RET 

@59 

I = I 1; 
8006700001 ADD 

CALL SIO$CRLF; 
E877F9 CALL 
A07000 MOV 
8102 МОМ 
F6E1 MUL 
89C3 MOV 
2ЕЕЕ7758 РЏ5Н 


; STATEMENT # 393 
ІШІ 
CL,2H 
CL 
BX, AX 
CS: НЕС ВХ) 
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0830 «ЗАРЕ7 CALL SIOOUTCHAR 
399 3 CALL SIOSOUTSCHAR( REG(I#241)); 
; STATEMENT # 399 
0850 А07000 MOV AG yt 
0843 8192 MOV CL, 2H 
0845 Ғ6ЕТ MUL си 
0847 3963 мом ВХ, AX 
3849 2EFF7759 PUSH CS:REG(BX+1H] 
9840 «89887 CALL SIQOUTCHAR 
800 3 END; 
; STATEMENT # 400 
0850 E943FF ЈМР 2152 
9153 
401 2 END; 
; STATEMENT # 401 
0853 50 РОР ВР 
9854 C3 RET 
ЗІОЄХАЙВЕС ENDP 
802 1 3125М0У2: 
; ЗТАТТМЕХ7 8 402 
/8 IMPLEMENTS THE MOVE COMMAND. ACCEPTS 3 ARGUMENTS AMD MOVIS THE 
BLOCK 97 MEMORY SPECIFIED BY ARGI-ARG2 ТО ARG3. АЗО24А821 OR THERE 
15 A DIFFERENCE WHEN THE BYTS IS READ BACK, THEN SRAGR. #/ 
SIOMOVE PROC NEAR 
0855 55 PUSH BP 
0856 авес MOV ЗР, SP 
PRICEDURE; 
493 2 CALL SLO$SCANSBLANK; 
; STATEMENT # 403 
0858  5833Е9 CALL ЗІОЗСАНВСАНК 
404 2 CALL STO$GET$ADDR(@ARG1,CS); /% FIRST ARGUMENT #/ 
; STATEMENT # 404 
1838 30051307 44 АХ, ААС! 
3858 1: РУЗН DS ; 1 
0860 52 РУЗН АХ ; 2 
0861 77364009 PUSH REGSAV+10H; 3 
0865 ES87CFA CALL 5120%ТА00В 
405 2 ЇР CHAR<>',' THEN GOTO ERROR; 
; STATEMENT 1 495 
2868 803=55002С CMP СНАЗ,20Н 
9860 7403 22 $+3H 
ОВ6Е Е99%Ғ6 ЈМ? ERROR 
1407 2 CALL 519358 ТЗСНАА; 
; ЗТАТЕМЕЧТ # 407 
2872  ЕЗЗАЄ" CALL SIOGETCHAR 
498 2 ЕЧОЧОРЕ = STOS$SETS$WORD; /9 SECOND ARGUMENT »/ 
; STATEMENT # 408 
0875 £37379 CALL SIOGETWORD 
0873 431800 MOV ENDOFF,AX 
409 2 IF ЕМОЗОРРСААСТ.ОРЕ THEN GOTO ERROR; 
; STATEMENT 9 429 
2878 A112309 мом АХ, ЕМООЕЕ 
287: 38051409 CHP АХ, ARGI 
2832 7493 JNB 5.54 
BSU 22745 ЈМР 28802 
411 2 i? CHAR<>’,’ THEN GOTO ERROR: 


40 
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413 


415 


417 


418 


419 


421 


423 


124 


425 


426 


0887 
088С 
0В8Е 


0891 


0894 
0898 
0899 
ОВЗА 
0В9Е 


ОВА1 
OBA6 
OBA8 


OBAB 


OBAE 
OBB2 
0885 
0889 


ОВВС 
ОВСО 
ОВСЗ 
08С7 
ОВСА 
OBCC 


OBCF 
OBD2 
0806 


0808 
0В09 


ОВОА 


OBDF 


ОВЕЦ 
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. 
, 


LOOP: 


STATEMENT # 


411 


113 


ARGUMENT %/ 
18 


415 


ці? 


418 


419 


421 


422 


423 


124 


425 


803Е66002С СМР CHAR, 2CH 
7403 dz $+5H 
297526 ЈМР ERROR 
CALL SIO$GET$CHAR; 
: STATEMENT # 
E87BF7 CALL SIOGETCHAR 
CALL SIO$GET$ADDR( @ARG3,CS); /8 THIRD 
- STATEMENT # 
8D961E00 LEA AX,ARG3 
1Е PUSH DS ; 4 
50 PUSH AX . 2 
FF 364000 PUSH REGSAV+10H; 3 
ЕВЦЗЕА CALL SIOGETADDR 
IF CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT й 
803£66000D CMP CHAR,ODH 
7403 27 $+5H 
E9SBF6 JMP ERROR 
CALL SIO$CRLF; 
; STATEMENT # 
E8F9F8 CALL SIOCRLF 
; STATEMENT # 
LOOP: 
MEMORY$ARG3 = MEMORYS$ARG1; 
СЦТЕТАОО LES BX,MEMORYARGIPTR 
268407 MOV AL,ES:MEMORYARGIS BX] 
C41E1200 LES BX,MEMORYARG3PTR 
268807 MOV ES:MEMORYARG3( ВХ ] ‚АГ 
ТЕ MEMORY$ARG3<>MEMORY$ARG1 THEN GOTO ERROR; 
; STATEMENT й 
C41E1E00 LES BX,MEMORYARG3PTR 
268A07 MOV АС, Е$ : МЕМОВУАВС 3 [ BX] 
C41E1A00 LES BX,MEMORYARGIPTR 
263A07 CMP А.,ЕЗ:МЕМОНҮАНО1Г BX] 
7403 JZ $+5H 
Е937Е6 ЈМР ERROR 
ТЕ ARG1.OFF = ENDS$OFF THEN RETURN; 
; STATEMENT й 
A11A00 MOV AX, АВС 1 
38061800 СМР AX, ENDOFF 
7502 JNZ 955 
; ФТАТЕМЕНТ # 
50 РОР ВР 
СЗ RET 
055: 
ARG1.OFF = ARG1.OFF + 1, 
; STATEMENT # 
83061A0001 ADD ARG1,1H 
ARG3.OFF з ARG3.OFF + 1; 
; STATEMENT # 
83061Е0001 ADD ARG3,1H 
GOTO LOOP; 
; STATEMENT # 
ЕВСВ ЈМР LOOP 
END; 
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STOMOVE ENDP 
427 1 SLOSDISPLAY: 
; STATEMENT # 427 
/% IMPLEMENTS THE DISPLAY BYTE COMMAND. ТЕ CALLED WITH 1 PARM THEN 
OUTPUTS A SINGLE BYTE. IF CALLED WITH 2 PARMS THEN OUTPUTS THE RANGE 
BETWEEN THE TWO ADDRESSES. ТЕ OFFSET<BEGIN THEN OUTPUTS ONLY A SINGLE 
BYTE. ®/ 
SIODISPLAY PROC NEAR 
OBE6 55 PUSH BP 
ОВЕТ ЗВЕС MOV BP,SP 
PROCEDURE; 
428 2 DECLARE Т BYTE; 
429 2 CALL SIO$TEST$wORD$MODE; 
; STATEMENT # 429 
OBEY ЕВССЕВ CALL STOTESTWORDMODE 
430 2 CALL SIO$GETSADDR(9ARG1,CS); 
; STATEMENT # 430 
OBEC 8D061A00 LEA AX, ARG1 
OBFO 1E PUSH DS 51 
0ВЕ1 50 PUSH AX . 2 
ОВЕ2 FF364000 PUSH REGSAV+10H; 3 
ОВЕ5  ЕЗЕВЕЗ CALL SIOGETADDR 
431 2 ТЕ CHARsASCR THEN 
; STATEMENT # 431 
ОВЕ9 8032560000 CMP CHAR,ODH 
OBFE 7508 JNZ 966 
432 2 ENDSOFF = АВС1,ОЁР, 
; STATEMENT # 432 
ОСОО А11А00 MOV AX,ARG1 
0C03 13431300 MOV ENDOFF, AX 
0606 EB29 JMP NEWLINE 
856: 
ELSE 
433 2 ро: 
434 3 ТЕ СНАВО»"',' THEN GOTO ERROR; 
; STATEMENT # 434 
0С08  803Е656002С CMP CHAR, 2CH 
OCOD 7403 JZ $+5Н 
ОСОЕ Е9ҒШЕ5 ЈМР ERROR 
436 3 CALL ФТОЗОЕТЗСНАА; 
; STATEMENT # 436 
0С12 ES8FAFS6 CALL STOGETCHAR 
437 3 END$SOFF = SIO$GETS$WORD; 
; STATEMENT # 437 
0С15 ЕВОВЕВ CALL STOGETWORD 
0c18 A31800 MOV SNDOFEF, АХ 
438 3 IF ЕМОЗОЕЕ < ARG1.0FF THEN GOTO ERROR; 
; STATEMENT # 438 
0С18 411800 М0У AX, ENDOFF 
ОС1Е 32961A00 CMP АХ, ААС1 
0C22 7303 JNB $+5H 
0С2% Е9ПЕЕ5 ЈМР cRROR 
440 3 ТЕ CHAR<>ASCR THEN SOTO ERROR; 
; STATEMENT 8 440 
OG 2 7 803Е660000 СМР CHAR,ODH 
2626 7403 1: $+5H 
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442 
443 


Ццц 


445 


446 


147 
448 


449 


451 


452 


453 


usy 


«о 


го 


0С2Е 


0031 


0c34 
0с33 


0C 3B 


ОСЗЕ 
09041 
0043 


ocus 
ОСЦ9 
ОСЦС 


ОСЧЕ 
0052 
0056 


0058 
9659 


OCSA 


ОСБЕ 


0С6 1 
ОСБ5 
0068 


0С6В 
ОСбЕ 
Фета 


ОС7Ц 
9675 
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# 


it 


Е905Е5 ЈМР ERROR 
END; 
NEWLINE: 
; STATEMENT 
NEWLINE: 
CALL SIO$CRLF; 
E873F8 CALL STOCRLF 
CALL STO$OUT$WORD(ARG1.OFF); 
; STATEMENT 
FF361A00 PUSH ARG1 81 
Е825Е7 CALL 51000ТЧОНО 
LOOP: CALL SIO$OUT$BLANK; 
; STATEMENT 
LOOP: 
Е839Е7 CALL SIOOUTBLANK 
IF WORD$MODE THEN 
; STATEMENT 
106909 МОУ AL,WORDMODE 
0008 RCR AL, 1 
7316 JNB 871 
00; 
CALL ЗТОЗОЦТ$ НОВО ( MEMORY$WORD$ARG1); 
; ЗТАТЕМЕМТ 
СЦ1ЕТАОО LES BX,MEMORYARGIPTR 
26FF37 PUSH ES:MEMORYWORDARGI(BKX] 
E811F7 CALL SIOOUTWORD 
IF ARG1.,.OFF = END$OFF THEN RETURN; 
: STATEMENT 
A11A00 MOV AX,ARG1 
38061800 СМР AX, ENDOFF 
7502 JNZ 372 
; STATEMENT 
5р РОР ВР 
СЗ КЕТ 
972: 
АВОТ „ОБЕ = ARGI.OFF + 1; 
; STATEMENT 
83061A0001 ADD АВС1,1Н 
END; 
; STATEMENT 
EBOA JMP 873 
871: 
ELSE 
CALL SIO$OUT$BYTE(MEMORYSARG1); 
; STATEMENT 
C4¥1E1A00 LES BX,MEMORYARGIPTR 
25FF37 PUSH ES:MEMORYARG1% BX] 
E8C5F6 CALL 51209ТВҮТЕ 
Ө73: 
ТЕ АВС1.ОЕГ>-ЕМр%9ОЕЕ THEN RETURN; 
; STATEMENT 
A11A00 MOV 4X,ARG1 
38051800 СМР АХ,ЕМООЁЕ 
7202 ЈВ 871 
; STATEMENT 
50 РОР ВР 
СЗ RET 


143 


444 


145 


446 


448 


44g 


450 


451 


452 


453 


454 


455 
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460 


461 


462 


463 
464 


465 


466 


468 


0076 


0С7В 
ОСТЕ 
0081 


0085 
0089 
ОСВВ 
ОСВО 
ОСЗЕ 
ОСВЕ 
0С94 
0096 
00938 
0699 


70690 


0С9Е 
OCAO 
OCA2 


ОСА 


OCA6 
ОСА? 


ОСА9 


ОСАС 
ОСАЕ 


0СВ2 
0С87 
089 


ОСВС 
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875: 
ARG1.OFF з ARG1,OFF + 1; 


-.. 


ЗТАТЕМЕМТ 9 456 


8306 140001 ADD ARG1,1H 
T = ARG1.OFF AND OOOFH; 
; STATEMENT # 457 
A11A00 MOV AX, АВС! 
250F00 AND АХ,ОЕН 
427100 MOV T,AL 
ТЕ Т:0 OR (WORD$MODE AND Т-1) THEN GOTO NEWLINE; 
; STATEMENT # 458 
8238710000 СМР Т, ОН 
ВОЕЕ MOV AL,OFFH 
7401 Ј2 $+3H 
40 INC AX 
50 PUSH AX 53 
803Е710001 СМР T,1H 
BOF F MOV АС, ОРРН 
7401 Ј2 $+3H 
10 ІМС АХ 
22066900 AND AL,WORDMODE 
59 POP СХ . 1 
OAC! OR AL,CL 
0008 АСА AL,1 
728D JB NEWLINE 
GOTO LOOP; 
; STATEMENT # 460 
2895 ЈМР LOOP 
END; 
STODISPLAY ENDP 
ЗІОЗІМРОТ: 
; STATEMENT # 462 
/® THIS ROUTINE IMPLEMENTS THE ‘INPUT’ COMMAND. USER SPECIFIES 
A PORT AND THE DATUM OF THE PORT 15 DISPLAYED. #/ 
SIOINPUT PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE; 
DECLARE PORT WORD; 
CALL SITO$TESTSWORDSMODE; 
| ; STATEMENT # 464 
ЕВОСЕВ CALL SITOTESTWORDMODE 
PORT = SIO$GETSWORD; 
; STATEMENT 9 465 
ЕЗЦТЕЗ CALL STOGETWORD 
A35600 MOV PORT, AX 
LOOP: 
; STATEMENT й 466 
LOOP: 
803Е66002С СМР CHAR, 2CH 
7403 92 $+5Н 
SO4AFS JMP ERROR 
ТЕ CHAR<>',° THEN GOTO ERROR; 
CALL SIO$CRLF; 
; STATEMENT # 468 
ЕЗЕЗЕ? CALL SIOCRLF 
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469 2 IF WORD$MODE THEN 
; STATEMENT й 469 
ОСВЕ А06900 MOV AL,WORDMODE 
occ2 0058 RCR AL, 1 
OCC4 7308 JNB 877 
470 2 CALL SIO$SOUT$WORD( INWORD(PORT)); 
; STATEMENT # 470 
OCC6 8В155600 MOV DX,PORT 
OCCA ED INW DX 
ОССВ 50 PUSH AX : 1 
ОССС E891F6 CALL SIOOUTWORD 
ОССЕ ЕВ09 ЈМР 978 
977; ! 
ELSE 
471 2 CALL SIO$OUT$BYTE(INPUT(PORT)); 
‚ STATEMENT # 471 
OCD1 88165600 MOV DX,PORT 
0605 20 IN DX 
9606 50 PUSH AX : 1 
OCD7 585626 CALL SIOOUTBYTE 
978: 
472 2 CALL SIO$GET$CHAR; 
; ЗТАТЕМЕМТ й 472 
OCDA E832F5 CALL ЗІОСЕТСНАВ 
473 2 ТЕ CHAR=ASCR ТНЕМ RETURN; 
| ; STATEMENT # 473 
осрр 803Е660000 CMP CHAR,ODH 
ОСЕ2 75СЕ JNZ LOOP 
; STATEMENT й 474 
OCE4 5D POP BP 
ОСЕ5 СЗ RET 
475 2 GOTO LOOP; 
476 2 END; 
SIOINPUT ENDP 
477 1 SIO$OUTPUT: 
: STATEMENT й 477 
/% THIS ROUTINE IMPLEMENTS THE ‘OUTPUT’ COMMAND. 
DATUM IS OUTPUT TO THE SPECIFIED PORT. #/ 
51000ТРОЫТ PROC NEAR 
OCE6 55 PUSH BP 
ОСЕ? 8BEC MOV BP,SP 
PROCEDURE; 
478 2 DECLARE (DATUM,PORT) WORD; 
479 2 CALL SIO$TEST$WORD$MODE; 
; STATEMENT # 479 
0СЕ9 ES8CCF7 CALL SLOTESTWORDMODE 
480 2 PORT = STO$GET$WORD; | 
; STATEMENT й 489 
ОСЕС E801F8 CALL SIOGETWORD 
OCEF A35A00 MOV PORT, АХ 
481 2 ТЕ CHAR<>’,' THEN GOTO ERROR; 
; STATEMENT % 481 
ОСЕ2 803Е66002С CMP CHAR, 2СН 
OCF7 7403 42 $+5H 
ОСЕ9  ЕЗОАЄ5 JMP ERROR 


483 


го 


CALL STO$GET$CHAR; 
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; STATEMENT 


ОСЕС Е810Ғ6 CALL ЗІОСЕТСНАВ 
484 2 LOOP: 
: STATEMENT 
LOOP: 
DATUM = SIO$GET$WORD; 
OCFF ES8EEFT7 CALL STOGETWORD 
0002 А35800 MOV DATUM, AX 
485 2 IF СНАВ=':’ THEN GOTO ERROR; 
‚ STATEMENT 
0005 803Е66003А СМР СНАВ,ЗАН 
ODOA 7503 JNZ $+5Н 
ODOC  ЕЭРТЕЦ УМР ERROR 
487 2 IF WORD$MODE THEN 
; STATEMENT 
ODOF 4006900 MOV AL,WORDMODE 
0012 0008 RCR AL, 1 
0014 730A JNB 882 
488 2 OUTWORD(PORT) = DATUM; 
STATEMENT 
0016 8В165А00 MOV DX, PORT 
001А | А15800 MOV AX, DATUM 
0010 EF OUTW DX 
001Е 2808 ЈМР 883 
082 
ELSE 
489 2 00ТРЫТ(РОВТ) = LOW( DATUM); 
; STATEMENT 
0920 А15800 MOV AX, DATUM 
0023 88165400 MOV DX,PORT 
0027 ЕЕ OUT DX 
983: 
490 2 ТР СНАН-!," THEN 
; STATEMENT 
0028 803Е66002С СМР CHAR,2CH 
0020 7516 JNZ е8ц 
ц91 2 ро: 
ц92 3 CALL SIO$CRLF; 
ЗТАТЕМЕМТ 
0D2F Е875Е7 CALL STOCRLF 
493 3 CALL ФТОЗОЏТЗСНАА("-"); 
STATEMENT 
0032 8020 MOV AL,2DH 
0034 50 PUSH AX 8% 74 
0035 Е8ВТҒ5 CALL STOOUTCHAR 
494 3 CALL SIO$OUTS$BLANK; А 
› ЗТАТЕМЕНТ 
0038 E83CF6 CALL STOOUTBLANK 
495 3 CALL SIO$GETSCHAR; 
; STATEMENT 
0038 E8D1F5 CALL SIOGETCHAR 
496 3 IF CHAR <> ASCR THEN GOTO LOOP; 
; STATEMENT 
ООЗЕ 803Е66000р СМР СНАЯ, ООН 
0043 75ВА JNZ LOOP 
; STATEMENT 
498 3 END; 


483 


485 


487 


488 


490 


494 


495 


497 


РАОБ 
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439 


509 


507 


508 


509 


511 


512 


w Г 


084: 
ЕНО; 
; STATEMENT # 499 
0045 5D POP BP 
0046 C3 RET 
STOOUTPUT ENDP 
STO$WRITE: 


; STATEMENT # 500 
/% IMPLEMENTS THE PAPER TAPE WRITE COMMAND. OUTPUTS LEADING NULLS, 
EXTENDED ADDRESS RECORD (8086 ONLY), START ADDRESS RECORDS 
(8086 ONLY), DATA RECORDS, EOF RECORD, AND TRAILING NULLS. #/ 


ЗТОМАТТЕ РВОС МЕАВ 
0047 55 РОЗН ВР 
0048 8ВЕС МОУ ВР, ЗР 
PROCEDURE; 


DECLARE (START$REC,MODE$8085) BYTE, (LEN,INDEX) WORD; 
CALL SIO$GET$CHAR; 
; STATEMENT # 502 
ООЧА E8C2F5 CALL ЗТОСЕТСНА К 
MODE$8086 = TRUE; 
; STATEMENT # 503 


0040 C6067300FF MOV МООЕЗОЗ6, ОЕЕН 
IF СНАВ-!Х" THEN и” TEST FOR 8080 MODE #/ 
; STATEMENT # 504 
0052  803Е662058 CMP CHAR,53H 
0057 7508 JNZ 986 
DO; 


MODE$8085 = FALSE; 
; STATEMENT # 505 
0059 66967500092 MOV MODE8086,0H 
CALL SIO$GETS$CHAR; 
; STATEMENT # 507 
005Е ЕВАБЕ5 CALL ЗІОСЕТСНАВ 
210; 
286: 
ТЕ CHAR=ASBL THEN CALL SIO$GET$CHAR; 
; STATEMENT # 509 


0061 803£660020 СМР CHAR, ФОН 
0D66 7503 JNZ 887 
; STATEMENT # 510 
0068  ЕВАЦЕ5 CALL SIOGETCHAR 
087: 


CALL SIO$GET$ADDR(@ARG1,CS); 
| ; STATEMENT # 511 


0068 8р061А00 LEA AX,ARG1 

OD6F 1E PUSH DS ; 1 
0070 50 PUSH AX ; е 
0071 FF364000 PUSH REGSAV+10H; 3 
0075 Е86СЕ8 CALL STOGETADDR 


ТЕ CHAR<>',* THEN GOTO ERROR; 
; STATEMENT # 512 


0078 803Е66002С СМР CHAR,2CH 
0070 7403 JZ $+5H 
ООТЕ EQ3UFY JMP ERROR 


CALL SIO$GET$CHAR; 
; STATEMENT # 514 
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919 


518 


523 


922 


523 


530 


531 


w ~ 


0082 


0085 
0088 


0088 
0085 
0092 
0094 


9997 
0096 


0D9E 


ЈОАЗ 


ODA6 
ODAA 
ODAB 
ODAC 
0080 


0083 


0085 


ODBA 


орсо 


00С5 
О0С7 


ODCA 


оосо 


0002 
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ЕВВАЕ5 CALL STOGETCHAR 
ЕНОЗОЕЕ = SIO$GETS$WORD; 
; STATEMENT # 515 
E868F7 CALL STOGETWORD 
A31800 MOV ENDOFF, AX 
IF END$OFF<ARG1.OFF THEN GOTO ERROR; 
; STATEMENT # 515 


A11800 MOV АХ, ENDOFF 
38061400 CMP АХ, АВС1 
7303 JNB $+5H 
ES6FF4 JMP ERROR 
TF CHAR<>ASCR THEN 
; STATEMENT # 518 
803Е650000 СМР CHAR,ODH 
7417 42. 290 
00; 


START$REC = TRUE; 
; STATEMENT # 520 
C6067200FF MOV STARTREC,OFFH 
CALL 51030ЕТУСНАВ, 
; STATEMENT # 521 
E869F5 CALL STOGETCHAR 
CALL SIOSGETS$ADDR(@ARG3,CS); 
; STATEMENT # 522 


80061500 LEA АХ ,АВОЗ 
1Е PUSH DS 5. 4 
50 PUSH AX : 2 
ҒЕЗ64000 PUSH REGSAV+10H; 3 
283128 CALL SIOGETADDR 

END; 

; STATEMENT # 523 

ЕВОВ ЈМР 991 

890: 

ELSE 
00; 


START$REC з FALSE; 
| ; STATEMENT # 525 
0606720000 MOV STARTREC,OH 
АВОЗ„ОЕР = 0; 
: STATEMENT # 526 
С706 15000000 MOV АНСЗ, ОН 
END; 
891: 
ТЕ CHAR<>ASCR THEN GOTO ERROR; 
> STATEMENT # 528 


823Е560000 СМР CHAR,ODH 
7403 JZ $+5H 
293СЕ4 ЈМР ERROR 
CALL SIO$CRLF; 
; STATEMENT # 530 
E8DAF6 CALL SIOCRLF 


/% LEADING NULLS %/ 
STATEMENT # 531 


DO I=1 TO 60; 


C606689001 MOV ЕСЕН 
0154: 
30355890035 СМР 1,368 


РАСЕ 
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2007 7700 ЈА 9155 
532 3 CALL 510%00Т%СНАНВ(0); 
; STATEMENT # 532 
0009 8000 MOV AL,OH 
008 50 PUSH AX к 1 
900С E810F5 CALL STOOUTCHAR 
933 3 END; 
| ; STATEMENT # 533 
ЈООЕ 8906630901 ADD I,1H 
ODEY БЕС JNZ 9154 
3155: 
534 2 CALL SLOSCRUF: 
; STATEMENT # 534 
00Е6 ES8BEF6 CALL STOCRLF 
535 2 те М00533086 THEN 
> STATEMENT й 535 
9059 А07300 MOV АС, МООЕЗОВБ 
ODEC 0008 АСА AL ,1 
ODEE 734E JNB 893 
535 2 ро; 
537 3 ТЕ 5ТАНТФНЕС THEN 
; STATEMENT # 537 
00983 407290 MOV AL,STARTREC 
0023 0003 RCR AL, 1 
0025 7328 JNB 834 
538 3 00; 
533 ü CALL STOSOUT$SHEADER(04¥,0,03); /# START ADDRESS RECORD #/ 
; STATEMENT # 539 
ODF? 89008 МОМ AL,4H 
ODF9 50 PUSH AX 8541 
ОБРА 830000 MOV АХ, ОН 
ODFD 50 PUSH AX . 2 
00ЕЕ 8903 MOV AL, ЗН 
0209 50 PUSH AX . 3 
0Е21 888155 CALL 51900ТНЕАРЕН 
549 u CALL SI9$OUT$wWORD(ARG3.,SEG); 
; STATEMENT # 510 
ОБОЦ ҒЕЗ62000 PUSH ARG3+2H ; 1 
9508 285525 CALL STIOUTWORD 
541 u CALL SIO$OUT$WORD(ARG3.0FS); 
; STATEMENT # 541 
ОБОВ ҒЕЗ61%00 PUSH ARG3 ; 1 
ОЕОЕ ЕВЧЕЕ5 CALL STOOUTWORD 
542 4 CALL STO$OUT$BYTE( CHECK$SUM); 
“ STATEMENT й 542 
2812 22356790 PUSH CHECKSUM; 1 
0Е16 581755 CALL 5. sOUTBITE 
543 4 CALL STI$SCRLE:; 
| ; STATEMENT 9 543 
0Е19 ЕЗӘВЕ5 CALL лежат. 
544 u \493,. 2202 = 0; 
2 ЗТАТЯМЕЧТ й 544 
9817 $796 1209099) ЧОУ ат. ЗН 
5 45 Ц 285; 


394: 
545 3 САБЫ S1299UT7%$4dSADSR 02,09,02); 75 EXTENDED 1п08035 ASCORD "7 
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0Е22 8002 MOV AL,2H 
0Е24 50 PUSH AX ‚1 
ОБ25 890000 MOV Ct, ОН 
0Е28 51 PUSH Cx ка 
0229 50 PUSH AX . 3 
ОЕ2А Е888Е5 CALL STOOUTHEADER 
547 CALL STOSOUT$WORD(ARG1.SEG); 
; STATEMENT # 547 
0Е20 FF361C00 PUSH ARG1+2H ; 1 
0Е31 E82CFS CALL STOOUTWORD 
548 CALL 510300Т5ВҮТЕ(СНЕСКУ50М), 
; STATEMENT Е 548 
0Е34 FF366700 PUSH CHECKSUM; 1 
0Е33  ЕЗЕЗЕЧ CALL STOOUTBYTE 
549 3 CALL SIO$CRLF; 
; STATEMENT Е 549 
0Е38 E869F6 CALL STOCRLF 
550 3 END; 
893: 
551 2 LEN = STANDARD$LEN; /% DATA RECORD h/ 
; STATEMENT # 551 
ОЕЗЕ С7065С001000 MOV LEN, 10H 
552 2 LOOP: INDEX = ЕМОЗОЕЕ ~ АНС1.ОРЁР, 
; STATEMENT # 552 
LOOP: 
0Е44 А11800 MOV АХ, ENDOFF 
2ЕШ7 28061А00 SUB AX, АВС 
ОЕЧВ АЗ5ЕОО MOV INDEX, AX 
553 2 ТЕ INDEX<STANDARD$LEN THEN LEN = INDEX + 1; 
; STATEMENT # 553 
ОБЧЕ 83F810 СМР АХ, ТОН 
2651 7309 JNB 895 
; STATEMENT # 554 
0Е53 A15E00 MOV AX, INDEX 
0256 83C001 ADD AX,1H 
ОБ59 A35C00 MOV LEN,AX 
895: 
555 2 CALL STOSOUTS$SHEADER(LEN,ARG1.0OFF,00); 
; STATEMENT # 555 
ОБ5С FF365C00 PUSH LEN > 4 
0Е60 FF361A00 PUSH ARG1 х 2 
0Е64 8000 MOV АБ, ОН 
0556 50 РУЗН АХ . 3 
0Е67 ES4BFS САС. SIQOUTHEADER 
556 2 DO ї=1 TO СЕН; 
; STATEMENT # 555 
0Е6А  С506680001 MOV Ty ТИ 
8156: 
OE6F 406800 MOV AL, I 
0Е72 B400 MOV АН, ОН 
OE74 38065000 СМР AX,LEN 
0673 7715 JA 2157 
557 3 CALL ЗТОЗОПТВУТ Е ( МЕМОНУЗАНС 1); 


ОЕТА 
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СЧТЕТАОО LES 


; STATEMENT 6 546 


; STATEMENT # 5 
BX,MEMORYARGIPTR 


л 
З 
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ОЕТЕ 
0Е81 


ОЕЗЦ 


ОЕЗ9 
ОЕВЕ 


599 2 


0Е90 
OE94 
501 2 


0897 


0Е9А 
0Е90 
ОЕАО 
ОЁАЧ 


564 2 


ОБАб 
OEA8 
OEA9 
OEAD 
OEAF 
ОЕВО 


ОЕВЗ 
ОЕВ? 
566 2 


ОЕВА 
567 2 


ОЕВО 


0ЕС2 
0ЕС7 
568 3 


0ЕС9 

0ЕСВ 

ОЕСС 
569 3 


ОЕСЕ 
OEDY 


570 2 
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26FF 37 
ЕЗАСЕЦ 


РОЗН ES:MEMORYARG1( BX] 
CALI; SIOOUTBYTE 
ARG1.OFF = АВСІ.ОЄЄ + 1; 
; STATEMENT 


83061A0001 ADD ARG1,1H 
END; 
; STATEMENT 
3006680001 ADD I, 1H 
75DF JNZ 8156 
8157: 


CALL SIO$OUT$BYTE(CHECK$SUM); 

; STATEMENT 
CHECKSUM; 1 
SIOOUTBYTE 


FF 366700 PUSH 

E899F4 CALL 
CALL 5104СБВЇР, 

; STATEMENT 


E80DF6 CALL STOCRLF 
ТЕ END$OFF<>ARG1.OFF-1 THEN GOTO LOOP; 
; STATEMENT 
A11A00 MOV АХ, АВС 1 
ВЗЕВО 1 508 АХ, 1H 
39061800 СМР ENDOFF, AX 
7996 JNZ LOOP 


CALL SIO$OUT$HEADER(00,ARG3.0FF,01); 
; STATEMENT 


В000 моу АС, ОН 

50 PUSH AX ; 1 
FF361E00 PUSH ARG3 ; 2 
8001 MOV AL, 1H 

50 PUSH AX ; 
E302F5 CALL SIOOUTHEADER 


CALL ЗТОЗОПТЗВУТЕ ( CHECK$SUM) ; 

; STATEMENT 
CHECKSUM; 1 
ЗТООЦТВУТЕ 


#е366700 PUSH 

Е?758Ң4 CALL 
CALL SITOSCRLF; 

; STATEMENT 


ЕЗЕАҒ5 CALL 
00 1-1 TO 60; 


STICRLE 


; STATEMENT 


C606680001 MOV Ly Va 
8158: 
803Е68003С СМР I, 3CH 
7790 ЈА 4159 
CALL SLOSOUT$CHAR(0O); 
; STATEMENT 
8000 MOV АГ, ОН 
50 PUSH AX . 1 
E820F4 CALL ЗТООПТСНАВ 
ЕНО; 
; ЗТАТЕМЕНТ 
800668000 1 АОО 1,124 
75ЕС JNZ 8158 
8159: 


END; 


# 558 


# 559 


# 560 


# 561 


# 562 


/% EOF RECORD #/ 
Е 564 


/% TRAILING NULLS #/ 


Е 56? 


# 568 


Е 569 
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; STATEMENT # 570 
0506 50 POP BP 
0Ер7 СЗ RET А 
г STOWRITE ANDP 
571 ! ЗТОЗВЕАО: 
; STATEMENT # 577 і 
/8 [MPLEMENTS THE READ PAPER ТАРЕ COMMAND. %/ 
SIJREAD PROC МЕАН 
0Е08 55 РЈ5Н ВР 
2Е09 ЗВЕС MOV ЗР,5Р 
PROCEDURE; 
572 2 DECLARE BIAS WORD, (REC$TYPE,LEN,I,T) BYTE, OFFSET WORD; 
573 2 BIAS = 9; /а DEFAULT BIAS #/ i 
; STATEMENT # 573 \ 
0208  с70660000000 MOV ЗІАЗ,ОН # 
574 2 ARG1.SEG з 0; /9 DEFAULT CS FOR 3080 FORMAT FILE #/ | 
; STATEMENT # 574 
ОЕЕ1 С7061С000000 MOV ARG1+2H,0H 
575 2 CALL SIO$SCAN$BLANK; 
; STATEMENT # 575 
ОБЕ? ЕВЕЦЕ5 CALL STOSCANBLANK 
575 2 IF CHAR<>ASCR THEN BIAS = 513308 Т3чО8НО, 
; STATEMENT # 576 
ОБЕА 303Е660000 CMP СНАВ, Ора 
ОЁЕР 7406 17 897 
; STATEMENT # 577 
ОБР) E8FCFS САБЫ STOGETWORD 
ОБЕЦ А35000 MOV 4145,АХ | 2 
097: ! 
573 2 ТЕ CHAR<>ASCR THEN 5079 ERROR; | 
; STATEMENT # 578 
ОБЕ? 803Е660000 CMP СНАВ, ООН 
QEFC 7403. 1% 5454 
ОБЕРЕ £E905F3 JMP ERROR 
580 2 CALL STO$CRLF; 
; STATEMENT 4 580 
OFO1 ЕЗАЗЕ5 CALL SIOCRLF 
581 2 LOOP: 
; STATEMENT # 581 
LOOP: 
OFO4 E87BF7 CALL ЗТОЯБАОСНАЯ 
0207 3СЗА СМР AL, ЗАН 
0209 75Ғ9 JNZ СООР 
DO WHILE SIO$READ$CHAR<>':';END; š 
583 2 CHECK$SUM = 0; 
; STATEMENT # 583 
OFOB C606670000 MOV CHECKSUM,OH 
584 2 LEN = SIO$READ$BYTE; А 
; STATEMENT # 584 
OF10  ЕЗВАЄТ CALL SIOREADBYTE 
OF 13 427500 MOV LEN,AL 
535 2 OFFSET = SIO$READ$WORD; 
; STATEMENT # 585 
OF 15 E8DFF7 CALL SIOREAOWORD 
0Р19 А36200 MOV OF FSET,AX 
586 2 ARG1.OFF = OFFSET + BIAS; 
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588 


589 
590 


591 


594 


598 
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; STATEMENT # 585 
A16200 MOV AX,OF FSET 
03066000 ADD AX, BIAS 
A31A00 MOV ARG1,AX 
REC$TYPE = SIO$READSBYTE; 
‚ STATEMENT # 587 
ЕВАЦЕ? CALL SIOREADBYTE 
A27400 MOV RECTYPE,AL 
IF REC$TYPE=03 THEN /* START ADDR ТУРС #/ 
: STATEMENT # 588 
80 3E740003 CMP RECTYPE, 3H 
750C JNZ 999 
DO; 
CS = SIO$READ$WORD; 
$ STATEMENT # 592 
E8C2F7 CALL STOREADWORD 
A34000 MOV REGSAV+10H, АХ 
ТР = SLO$READ$WORD; 
: STATEMENT # 591 
ЕЗВСЕ? CALL 51385АОМОНО 
A34800 MOV REGSAV+18H, АХ 
END; 
899: 
ТЕ ВЕСЗТУРЕ=02 THEN /% EXTENDED ADDR TYPE #/ 
; STATEMENT 4 593 
803E740002 CMP RECTYPE, 2H 
7506 JNZ 2109 
ARG1.SEG = SIO$READ$WORD; 
; STATEMENT # 594 
E8AFF7 CALL SITOREADWORD 
АЗІСОО МОУ ARG1+2H,AX 
0100: 
ТЕ ВЕСЗТУРЕ = 01 THEN /* EOF %/ 
STATEMENT # 595 
8235740001 СМР RECTYPE, 1H 
7500 JNZ 0101 
IF OFFSET <> 0 THEN IP = OFFSET; 
; STATEMENT # 596 
833Е620000 СМР ОЕЕЗЕТ , ОН 
7406 JZ 8101 
; STATEMENT 4 537 
А15200 MOV АХ, ОРЕЗЕТ 
A34800 MOV REGSAV+18H,AX 
2101: 
ТЕ REC$TYPE=00 THEN /а DATA ТУРЕ ?/ 
; STATEMENT # 593 
823E740000 CAP КЕСТҮРЕ, ОН 
93:7 JNZ 9103 
DO 141 ТО БЕН: 
; STATSMENT # 599 
C605760001 MOV Г, 1Н 
2162: 
407520 MOV 41,1 
34067509 САР ВЫ РОВ 
7729 JA 4193 


Т, МЕМОВУЗАЯС 1 


х ST2$RSADSBYUS 
STATS Те и 


. 
, 


«І 
Па 
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603 


604 


605 


606 


608 


0275 
0278 
ОР7В 
ОР7Р 


0Е82 
0Е86 
0289 
OF8D 
0F8F 


0F92 


0297 
02960 


ОР9Е 
ОРАТ 


ОРАЦ 
ОРА 
ОРАВ 


ОЁАЕ 
OFB3 
OFBS 
0ЕВ7 
ОЕВ8 
ОЕВ9 
ОЕВЕ 
ОРСО 
0ЕС2 
ОРСЗ 
ОРСЧ 
0206 
ОРСВ 
ОРСА 


OFCD 
ОЕСЕ 
OFDO 


OFD3 
0205 
ОЕО6 


0ЕРр9 
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ES55F7 CALL STIREADBYTE 

A27700 MOV T,AL 

С41Е1А00 LES BX,MEMORYARGIPTR 
268807 MOV ES:MEMORYARG1(BX],AL 


IF MEMORY$ARG1<>T THEN GOTO ERROR; 
; STATEMENT # 501 


СЦ1ЕТАОО LES BX,MEMORYARGIPTR 
268А07 MOV АС , 53 : МЕМОВУАНС 1 BX] 
33067700 СМР AL,T 

7403 Ј2 3558 

£974F2 JMP ERROR 


АЯС1,О0ЁР = ARG1.OFF + 1; 
; STATEMENT # 603 


8306140001 ADD АЯС1,1Н 
END; 

; STATEMENT # 504 

8006760001 ADD ТЕТЯ 

75СЕ JNZ 9162 

8103: 
T = SIO$READ$BYTE; /% PETCH CHECKSUM %/ 

; STATEMENT # 695 

Е82СЕ7 CALL SIOREADBYTE 

A27700 MOV T, AL 


ТЕ CHECK$SUM<>0 THEN GOTO ERROR; 
; STATEMENT # 606 


823£670000 CMP CHECKSUM, ОН 
7403 97 $+5H 
E958F2 JMP ERROR 


IF REC$TYPE<>01 AND LEN<>9 THEN GOTO LOOP; 
; STATEMENT # 003 


8038780001 СМР АЕСТҮРЕ,1Н 
BOFF MOV AL,OFFH 
1501 JNZ $+3H 

40 INC AX 

50 PUSH AX 21 
823Е750000 СМР LEN,OH 

BOFF MOV AL,OFFH 
7501 JNZ $+3H 

40 INC AX 

59 РОР CX 4-1 
2201 АНО АБ, CL 

0008 RCR AL, 1 

7303 JNB $+5H 

Е93ТЕҒ ЈМР LOOP 


CALL ЗТОЗОЏТЗСНАА(О); /% DELAY FOR LAST CR, LF SENT %/ 


; STATEMENT # 610 


8000 MOV АЫ, ОН 
50 PUSH AX 21 
Е81СРЗ CALL STOOUTCHAR 
CALL ФТОЗОЏТЗСНАА(О); /% BY INTELLEC */ 
; STATEMENT # 611 
8009 MOV AL,OH 
50 PUSH AX ; 1 
5816Ғ3 CALL | SIQOUTCHAR 
END; 
; STATEMENT # 612 
5D POP BP 


PAGE 
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613 


614 


615 


616 


617 


618 


619 


620 


OFDA 


00А8 
0049 
OOAE 
0081 
0083 
0088 
0089 


00ВА 
008D 
ООВЕ 


00C0 
00C2 


00C3 
00C5 


00C6 


ООСВ 
0000 


00D2 
00D6 
00D8 
00DC 
OODF 


00Е0 
00Е5 


00Е7 
ООЕА 


50К86 SERIAL MONITOR 


C3 RET 
STOREAD ENDP 


/9544808060(239088088288808899404080848 аа 080 6 0: 208 000 


8 COMMAND DISPATCH MAIN PROGRAM LOOP ы 
озоесовенововозевевововеневовевонаонававев / 


# 613 


Е 614 


Е 615 


Е 616 


# 617 


# 618 


# 619 


DISABLE; 
; STATEMENT 
FA СЕТ 
2E8E16A400 MOV 55,С5:885ТАСКФЕНАМЕ 
BC4200 MOV SP, @@STACK$OFFSET 
ВВЕС MOV ВР,5Р 
2E8E1EA609 MOV DS,CS: @@DATA$FRAME 
FB 8ТІ 
ҒА CLI 
OUTPUT(KB$STAT$PORT) = KB$INIT$MODE; 
; STATEMENT 
BAEAFF MOV ОХ, ОЕЕЕАН 
8000 MOV AL,OH 
EE OUT DX ; 
OUTPUT(KB$STAT$PORT) = KB$INIT$SCAN; 
; STATEMENT 
8039 MOV AL,39H 
EE OUT DX 
OUTPUT(KB$STAT$PORT) = 90H; /% OUTPUT "8086" 
; STATEMENT 
8090 MOV AL,90H 
EE OUT DX 
DO I=0 TO 7; 
; STATEMENT 
С606680000 MOV 1,0Н 
0164: 
893Е68 0007 СМР I,7H 
7715 ЧА 0165 
OUTPUT(KB$DATA$PORT) = KB$SIGNON(L); 
; STATEMENT 
8A1E6800 MOV BL,I 
B700 MOV BH,OH 
2ЕВАЦТАВ MOV AL,CS:KBSIGNON[ BX] 
ВАЕВЕЕ MOV ОХ, ОЕЕЕВН 
ЕЕ OUT DX 
END; 
; STATEMENT 
8006680001 ADD I,1H 
75E4 JNZ 8164 
0165: 


/* THIS STRANGE SEQUENCE OF CODE IS USED ТО GUARANTEE CORRECT USART 
INITIALIZATION AFTER EITHER: 1) HARDWARE RESET (EXPECTING MODE) 


2) SOFTWARE RESTART (EXPECTING COMMAND). 


OUTPUT(SIO$STAT$PORT) 


ВАЕФЕЕ MOV 


SI0$8251$RESET; 
; STATEMENT 


DX,OFFF2H 


8065 MOV AL,65H 


# / 


# 620 


SIGNON BACKWARDS */ 


PAGE 
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OOEC EE OUT DX 
621 1 CALL STO$8251$SETTLING$DELAY; 
; STATEMENT # 621 
00Ер E8E902 CALL STO8251SETTLINGDELAY 
622 1 ОЏТРОТ( 5103 5ТАТЗРОНТ) = 25H; 
; ЗТАТЕМЕНТ # 622 
OOFO BAF2FF MOV ОХ, ОРРР2Н 
ООРЗ 8025 MO V AL,25H 
OOFS EE OUT DX 
623 1 CALL STO$8251$SETTLINGS$DELAY; 
; STATEMENT # 623 
00Ғ6 Е8ЕО02 CALL STO8251SETTLINGDELAY 
624 1 OUTPUT(SIOSSTATSPORT) = SIO$8251$RESET; 
; STATEMENT # 624 
ООР9 ЗАР2?Р MOV DX,OFFF2H 
ООРС 8065 MOV AL,65H 
00РЕ ЕЕ OUT DX 
625 1 CALL SIO$8251$SETTLINGS$DELAY; 
; STATEMENT # 625 
ООРЕ Е80702 CALL SIC8251SETTLINGDELAY 
626 1 OUTPUT(SIO$STATS$PORT) з STO$8251$MODE; 
; STATEMENT # 626 
0102 BAF2FF MOV DX,OFFF2H 
0105  ВОСЕ MOV AL,OCFH 
0107 EE OUT DX 
627 1 CALL STO$8251$SETTLINGS$DELAY; 
; STATEMENT # 627 
0108 E8CEO2 CALL SIO8251SETTLINGDELAY 
628 1 OUTPUT(SIO$STATS$PORT) = 3103825 13СМНО; 
; STATEMENT # 628 
0108 BAF2FF MOV DX,OFFF2H 
0102 8025 MOV AL,25H 
0110 ЕЕ OUT DX 
629 1 CALL 5103825 143ЕТТ! ТНСЗОЕГАТ; 
; ЗТАТЕМЕНТ # 529 
0111 Е8С502 CALL STO8S251SETTLINGDELAY 
6 30 1 CALL STO$SOUTSSTRING( @SIO$SIGNON) ; 
; STATEMENT # 630 
0118 2Е80062700 LEA AX,CS:SIOSIGNON 
0119 OE PUSH cs ; 1 
011А 50 PUSH AX ; 2 
0118 Е86402 CALL STOOUTSTRING 
/% INITIALIZE USER'S REGISTERS %/ 
631 1 С3,33,03,Е3,РЬ,ТР з 0; 
; STATEMENT # 631 
011Е 8В880000 MOV АХ, ОН 
0121 A34000 MOV REGSAV+10H,AX 
0124 A3Z4400 MOV REGSAV+14H,AX 
0127 A318200 MOV REGSAV+12H,AX 
012А A34600 MOV REGSAV+16H,AX 
0120 АЗЧАОО MOV REGSAV+1AH,AX 
0130 А34800 MOV REGSAV+18H,AX 
632 1 SP = USER$INITS$SP; 


; STATEMENT # 532 


/9 INITIALIZE INTERRUPT VECTORS %/ 
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633 


634 


6 35 


636 


637 


638 


639 


0133 


0139 
0130 
ОТЗЕ 
ОТЗЕ 
0142 
0143 


0146 
ОТЧА 
0148 
0146 
014Е 
0150 


0153 
0157 
0158 
0159 
015C 
015D 


0160 


0165 
0167 


016A 
016C 


016Е 
0172 
0174 


0179 


0170 
О17Е 
017F 


0182 


SDK86 SERIAL MONITOR PAGE 


C70638000001 MOV REGSAV+8H,100H 
CALL INITS$INT$VECTOR( @INT$VECTOR(1),.INTERRUPTI$SENTRY); 
; STATEMENT # 633 
80060400 LEA AX, INTVECTOR+4H 
ТЕ PUSH DS ; 1 
50 PUSH AX ; 2 
B8DF07 MOV AX, ОРЕЗЕТ ( INTERRUPTIENTRY) 
50 PUSH AX ; З 
882807 CALL INITINTVECTOR 
CALL INIT$INT$VECTOR( @INT$VECTOR(2),.INTERRUPT3$ENTRY); 
; STATEMENT # 634 
80060820 LEA AX, INTVECTOR+8H 
1E PUSH DS ; 1 
50 PUSH AX ; 2 
885108 MOV AX, OF FSET( INTERRUPT3ENTRY) 
50 PUSH AX ; 3 
Е81Е07 CALL INITINTVECTOR 
CALL INIT$INT$VECTOR( @INT$VECTOR(3),.INTERRUPT3$ENTRY); 
; STATEMENT # 635 
80060С00 LEA AX, INTVECTOR+0CH 
ТЕ PUSH DS ; 1 
50 PUSH AX. ; 2 
885108 MOV AX, OFFSET( INTERRUPT3ENTRY) 
50 PUSH AX . З 
Е81107 CALL INITINTVECTOR 
BRKI$FLAG = FALSE; 
; STATEMENT # 636 
C606640000 MOV BRK1FLAG,OH 
MONITOR$STACKPTR = STACKPTR; 
; STATEMENT # 637 
89E0 MOV AX,SP 
A31400 MOV MONITORSTACKPTR, AX 
MONITOR$STACKBASE = STACKBASE; 
; STATEMENT 4 538 
8CDO MOV AX,SS 
A31600 MOV MONITORSTACKBASE, AX 
NEXT$COMMAND: 
; STATEMENT # 539 
/* THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH IS A SEPARATED PROCEDURE. %/ 
NEXTCOMMAND: 
BC4200 MOV SP,@@STACK$OFFSET 
8BEC MOV BP,SP 
2E8E1E£A600 MOV 0$ , СЗ: @@DATA$FRAME 
CALL SIO$CRLF; 
E82B03 CALL SIOCRLF 
CALL SIO$OUT$CHAR(O); 
; STATEMENT # 610 
В000 MOV АБ, ОН 
50 PUSH AX ; 1 
E86D01 CALL SIOOUTCHAR 
CALL SIO$OUT$CHAR('.'); 
; STATEMENT # 641 
BO2E MOV AL,2EH 
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0188 sO PUSH AX ; 1 
0185 £86701 CALL SIOOUTCHAR 
642 1 CALL SIO$GETS$CHAR; 
; STATEMENT # 
0188 £88401 CALL ЗІОСЕТСНАЯ 
643 1 DO 120 ТО LAST(SIO$CMND); 
; STATEMENT 4 
0188 С606680000 MOV I,0H 
@166: 
0190 803Е680009 СМР 1,9Н 
0195 776Е ЈА ERROR 
644 2 ТЕ CHAR=SIO$CMND(I) THEN GOTO DISPATCH; 
; STATEMENT # 
0197 A06600 MOV AL, CHAR 
019A 3А126800 MOV BL, I 
019E B700 MOV BH, ОН 
01А0 2ЕЗАЧТЦЕ CMP AL,CS:SIOCMND( BX] 
0144 7409 47 DISPATCH 
646 2 END; 
; STATEMENT # 
0146 8006680001 ADD 1,1Н 
ОТАВ 75Е3 4472 2166 
647 1 GOTO ERROR; 
; STATEMENT # 
ОЛАр 2857 ЈМР ERROR 
638 1 DISPATCH: 
: STATEMENT # 
DISPATCH: 
LAST$COMMAND = Т; 
ОТАЕ 406800 MOV AL, I 
0182 A26A00 MOV LASTCOMMAND, AL 
649 1 DO CASE I; 
; STATEMENT # 
0185 8500 МОУ АН,ОН 
0187 8963 MOV BX,AX 
0189 D1E3 SLL BX, 1 
0188 2EFFAT7F201 JMP CS:@168( ВХ] 
650 2 CALL SIO$EXAM$MEM; 
; STATEMENT 8 
@109: 
01СО £86307 CALL SIOEXAMMEM 
ОТСЗ ЕВАА JMP NEXTCOMMAND 
651 2 CALL ЗТОЗЕХАМЗ ВЕС; 
; ЗТАТЕМЕНТ і 
8110: 
0105 £83£08 CALL SIOEXAMREG 
0108 ЕВА5 JMP NEXTCOMMAND 
652 2 CALL SIO$GO; 
; STATEMENT # 
8111: 
ОТСА Е8С506 CALL 51060 
01CD ЕВАО ЧМР NEXTCOMMAND 
653 2 CALL SIO$SINGLESSTEP; 
; STATEMENT # 
9112: 
ОТСЕ Е82р07 CELL SIOSINGLESTEP 
0102 ЕВ9В JMP NEXTCOMMAND 


642 


643 


644 


646 


647 


648 


649 


652 


653 
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655 


057 


661 
662 


1 


1 


CALL SIO$MOVE; 
; STATEMENT # 654 
@113: 
0104 E87E09 CALL 510МОҮЕ 
0107  ЕВ96 ЈМР МЕХТСОММАНО 
CALL SIO$DISPLAY; 
; STATEMENT # 655 
0114: 
0109 ЕЗОАОА CALL STODISPLAY 
910С 2891 ЈМР NEXTCOMMAND 
CALL SIO$INPUT; 
; STATEMENT # 656 
0115: 
010Е  Е8С5ОА CALL STOINPUT 
ОТЕ 1 ЕВВС ЈМР NEXTCOMMAND 
CALL 510300ТРОТ,: 
: STATEMENT # 557 
8116: 
0123 280008 CALL STOOUTPUT 
0126 ЕВ87 JMP NEXTCOMMAND 
CALL SIO$READ; 
| ; STATEMENT # 558 
6117: 
01Е8 E8EDOC CALL STOREAD 
012: 
О1ЕВ 882 ЈМР NEXTCOMMAND 
CALL ЗТОЗИНТТЕ; 
; STATEMENT # 559 


0118: 
91Е0  Е85708 CALL SIOWRITE 
ОТЕО ЕВЕ9 JMP @12 

END; 
; STATEMENT 4 560 

8168: 
0192 C001 DW 2109” 
01Ғ% C501 DW @110 
0126 САО1 ри 8111 
01Е8 СЕ01 ры 8112 
O1FA 0401 DW 0113 
01FC 0991 ри 9114 
ОТЕБ DEDI ри 3115 
0200 2301 ри 0116 
0202 Е801 ри 0117 
0204 EDO! ри 2118 


СОТО NEXT$COMMAND; 


ERROR: 
; STATEMENT # 562 
/% THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND 
WILL OUTPUT THE ERROR PROMPT TO THE OUTPUT PORT. #/ 


ERROR: 
0206 BC4%200 MOV SP,@@STACK$OFFSET 
0209 ЗВЕС MOV BP,SP 
0208 258Е1БА600 MOV DS,CS: @@DATA$FRAME 
0219 8023 MOV AL,23H 


0212 50 PUSH AX с 1 


PAGE 
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565 
666 


667 


568 


0213 


0216 


0218 
0218 
0210 
9222 
0225 
0227 


0229 
0226 
0230 


0233 


0238 
0238 
023Е 
023Ғ 
0242 
0245 
0247 
0238 
0240 
0248 
0251 
0252 
0253 
0256 
0258 
025А 
025Е 
025Ғ 
0261 
0265 
0266 
0268 
026А 
026C 
026D 
026Е 
0270 
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580900 CALL 51000ТСНАВ 
CALL SIO$OUT$CHAR('#'); 
СОТО NEXT$COMMAND; 
; ЗТАТЕМЕНТ # 663 
2803 ЈМР 812 
AFTERSINTERRUPT: 
; STATEMENT # 664 
/9 THIS ROUTINE IS CALLED AFTER AN INTERRUPT TO DISPLAY THE CS: IP 
AND RESTORE THE BREAKPOINTED INSTRUCTION. #/ 
AFTERINTERRUPT: 
BC4200 MOV 5Р,905ТАСКФОРЕЗЕТ 
ВВЕС мом ВР, ЗР 
2Е8Е1ЕА600 MOV DS,CS: 3@DATASPRAME 
A06400 MOV AL, BRKIFLAG 
рор8 АСЯ 41,41 
7354 JNB 9119 
ТЕ BRK1$FLAG THEN 
DO; 
MEMORYS$BRK1 = BRKI$SAVE; 
; STATEMENT # 566 
A06530 MOV AL,BRKISAVE 
C4182200 LES ВХ, МЕМОВУВЕК 1РТА 
268807 MOV ES: МЕМОЯТВЕК 1 ( ВХ), АГ. 
BRK1$FLAG = FALSE; 
; STATEMENT # 667 
С6066%0000 MOV ВЯК 1ЕТ АС , ОН 
ТР ((ІР-1) AND OOOFH)=(BRK1.0FF АМО ОООРН) AND 
; STATEMENT 9 668 
А14809 MOV AX, ВЕСЗАУ + 1 8Н 
ВЗЕВО 1 SUB AX, 1H 
50 PUSH AX ; 1 
250F00 AND АХ,ОЕН 
ВВОЕ2200 MOV CX, ВЕК 1 
51 PUSH cx ; 2 
81£10F00 AND СХ,ОРН 
3ВС1 СМР АХ, Cz 
BOFF MOV А.,ОРЕН 
7401 42 $+3Н 
40 INC AX 
SA POP DX ; 2 
8756ҒЕ XCHG 0Х,ГВ8Р1-2Н: 1 
8104 MOV CL,4H 
ОЗЕА SHR ох, et 
03164000 ADD DX,REGSAV+10H 
58 POP BX : 1 
ОЗЕВ SHR at CL 
031Е2400 ADD BX, ВЯК 1+2 
50 PUSH AX ЭР 
3803 СМР рх. вх 
ВОЕЕ MOV AL,OFFH 
7401 32 $+3H 
40 INC AX 
59 POP CX ; 1 
2201 AND AL; ÈL 
0003 RCR АС, 1 
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0272 
669 2 
679 3 
0274 
671 | 3 
0279 
027Е 
027Е 
0280 
672 3 
673 2 
674 1 
0283 
9285 
0286 
675 1 
0289 
0280 
676 1 
0290 
0292 
0293 
677 1 
0296 
029А 
673 1 
0290 
579 1 
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730F JNB 9119 
(5Н8(1Р-1,3)-051)-(5НЯА(ВКК1.0СЕ,4)-38К1.,511) 
ро; 
ТР з TP - 1; 
: STATEMENT # 572 
832E480001 SUB REGSAV+18H,14H 
CALL SIO$OUTSSTRING( @SIO$BREAK$MSG); 
STATEMENT # 671 


, 
2Е8 0062300 LEA AX,CS:STIBREAKMSG 
ОЕ РЈ5Н cs . 1 
50 PUSH АХ . 2 
ESFFOO CALL STIOUTSTRING 
END; 
END; 
2113: 


CALL SITO$OUT$CHAR('@'); | 
; STATEMENT 8 67Ц 


8040 MOV АС, ЦОН 
50 РУЗН АХ ; 1 
E86500 CALL STOOUTCHAR 


CALL SITO$OUT$WORD(CS); 


Ov 
ч 
мл 


і ; STATEMENT і 
FF 354000 PUSH REGSAV+10H; 1 
E8D000 CALL STIOVTWORD 
CALL SIO$OUTS$CHAR(':'); 
; STATEMENT Е 576 


ВОЗА MOV AL, ЗАН 
59 PUSH AX # 1 
£85909 CALL STOOUTCHAR 


CALL ЗТОЗОИТФИОНО (ТР); 

; STATEMENT # 577 
REGSAV+18H; 1 
ЗТООИТИОКО 


ЕҒЗ68800 PUSH 
E8C300 CALL 
GOTO NEXTECOMMAND; 
; STATEMENT f 573 
Е9СЕҒЕ ЈМР NEXTCOMMAND 


END MONITOR; 79 END OF MODULE %/ 
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CROSS-REFERENCE LISTING 


DEFN 
664 
169 


11 


11 


10 


10 


10 


51 


572 


15 


ADDR 
0218H 


0000H 


ООТАН 


ООТЕН 


ООЗЕН 


0008H 


0060H 


FHFFF6H 
ЕНЕРЕВН 
РНРРРОН 
РНРРЕ1Н 
РНРЕРЗН 


0000H 


SIZE 


NAME, 


ATTRIBUTES, 


AND REFERENCES 


AFTERINTERRUPT 


ARG 


АНС1 


ARG3 


ASBL 


ASCII 


ASCR 


BIAS 


BLOCK8089 
BLOCKSO89PTR 
BOOT! 

BOOT2 

80073 

BOOTY 


BP 


LABEL 
277 
STRUCTURE BASED( PTR) 
170 171 175 175 
STRUCTURE АТ 
318 351 352 354 304 
432 538 444 449 451 
516 547 552 555 558 
603 
STRUCTURE АТ 
414 424 522 526 540 
LITERALLI 
88 53 125 130 599 
BYTE ARRAY(16) DATA 
53 54 86 87 
LITERALLI 
118 160 191 266 290 
360 387 390 394 415 
518 528 576 578 
LITERALLI 
115 
ВУТЕ PARAMETER AUTOMATIC 
52 53 55 55 
WORD 
573 577 586 


WORD AT INITIAL ABSOLUTE 


809 
454 
562 


541 


298 
431 


POINTER AT INITIAL ABSOLUTE 


BYTE 
WORD 
WORD 
SORD 


LITERALLY 
245 


ARRAY(1) 
ARRAY(1) 
ARRAY(1) 


ARRAY(2) 


DATA 


421 
455 
574 


544 


329 
340 


АТ INITIAL АЗЗОСУТЕ 


AT INITIAL ABSOLUTE 


АТ INTTTAL ABSOLUT= 


423 
457 
585 


564 


334 
473 


430 
511 
594 


348 
495 
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11 


92 


36 


105 


11 


478 


168 


195 
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0022H 


0064H 


0065H 


OOO4H 


ОООЧН 


0006H 


0004Н 


0066H 


0026H 


0058H 


0004Н 


9053H 
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BREAKINST 


BRK 1 


BRKIFLAG 


BRKISAVE 


C1 


C2 


CHAR 


CHECKSUM 


COPYRIGHT 


CORRECTION 


cS 


CSIP 


DATUM 


ОБРАЦСТВАЗЕ 


DELAY 


LITERALLY 
293 294 
STRUCTURE AT 
289 668 
BYTE 
296 636 664 
BYTE 
292 666 


BYTE PARAMETER 
93 94 95 


BYTE PARAMETER 


37 42 

BYTE PARAMETER 
106 108 

BYTE PARAMETER 
106 108 

BYTE 


23 24 25 
100 120 125 
162 163 172 
286 290 298 
360 376 378 
431 434 440 
504 509 512 


55 76 218 


BYTE ARRAY(19) 


LITERALLY 
282 


LITERALLY 
188 192 318 
675 


STRUCTURE АТ 
184 185 192 
311 


WORD 
484 488 489 


WORD PARAMETER 
169 170 


WORD 
197 199 200 


667 
AUTOMATIC 

96 
AUTOMATIC 
AUTOMATIC 
AUTOMATIC 
28 29 
130 138 
177 191 
308 319 
387 399 
166 %73 
618 528 
542 548 

DATA 
404 414 
261 262 
AUTOMATIC 


33 
143 
210 
329 
394 
481 
576 


560 


47 
153 
212 
331 
405 
485 
578 


565 


301 


48 
154 
259 
334 
411 
490 
644 


583 


522 


302 


PAGE 


49 
160 
266 
348 
415 
495 


606 


668 
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648 


652 


12 


157 


16 
16 
16 
16 


12 


34 


358 


COMPILER 


ОТАЕН 


00138 г 


0206Н 


0581H 


ЕНЕРОВН 5 


РНРЕЕОН 16 


РНРРР5Н 1 
РНРРРСН 3 
0008H 1 
0070H 1 
0076H 1 
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DISPATCH 


DOUBLE 


05 


ENDOFF 


ERROR 


25 


EVAL 


"з 


LABEL 
545 


BUILTIN 
95 95 


LITSRALLY 
631 


WORD 
408 409 
515 552 
LABEL 
30 34 
299 309 
406 310 
482 486 
LITERALLY 
531 
LABEL 
147 
LITERALLY 
15 
LITERALLY 
19 90 


421 432 437 
562 


152 164 178 


320 335 340 
412 416 429 


513 517 529 


193 111 118 


РАСЕ 64 


438 449 454 515 


203 267 291 295 
355 375 379 331 
435 439 441 567 
579 532 637 647 


506 525 635 667 


BYTE ARRAY(5) АТ INITIAL ABSOLUTE 


BYTE ARRAY(16) 


AT INITIAL ABSOLUTE 


BYTE ARRAY(1) АТ ТМТТТАС ABSOLUTE 


BYTE ARRAY(4) 


393 312 631 


BYTE PARAMETER AUTOMATIC 


LITERALLY 
254 263 
LITERALLY 
85 87 
BUILTIN 
59 
BYTE 
363 365 
396 398 
BYTE 


599 


366 368 359 
399 


AT INITIAL ABSOLUTE 


389 393 392 394 
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280 


248 


270 


279 
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0068H 


ООБЕН 


0871Н 


0095Н 


0005Н 


ОТОЕН 


08518 


0004Н 


0000H 


00064 


001BH 
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2 INDEX 


33 INITINTVECTOR 


15 INITINTVECTORCODE 


2 INITINTVECTORCODEPTR 


INPUT 


114 INTERRUPTIENTRY 


57 INTERRUPTZENTRY 


2 INTROUTINEOFFSET 


20 INTVECTOR 


4 INTVECTORPTR 


INWORD 


TP 


КВРрАТАРОНТ 


KBINITMODE 


KBINTITSCAN 


8 KBSIGNON 


KBSTATPORT 


LAST 


BYTE 

67 68 69 70 82 86 87 99 
229 230 240 242 531 556 567 617 
643 644 548 649 


WORD 
Boe 533 359 


PROCEDURE STACK=000EH 
533 934 635 


BYTE ARRAY(15) DATA 
280 


WORD DATA 
281 


BUILTIN 
18 23 28 40 45 47 198 207 


PROCEDURE INTERRUPT(1) STACK=0026H 
633 


PROCEDURE INTERRUPT(3) STACK=0014H 
634 635 


WORD PARAMETER AUTOMATIC 
280 282 


POINTER ARRAY(5) 
633 634 635 


POINTER PARAMETER AUTOMATIC 
280 281 282 


BULLTIN 
470 


LITERALLY 
183 185 309 631 668 679 677 


LITERALLY 
518 


LITSRALLY 
614 


LITERALLY 
515 


BYTE ARRAY(8) SATA 
613 


LITERALLY 
514 515 516 


BUILTIN 


PAGE 


100 
618 


471 
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та 


73 


73 


552 


196 


66 


8445 


484 


581 


11 


11 


11 


11 


ООбАН 


005СН 


0075Н 


00088 


00068 


OBAEB 


OE SSH 


96858 


освен 


0C3BH 


ОСРРН 


ОРОЗН 


0000Н 


ООТАН 


0000H 


ООТЕЧ 
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LASTCOMMAND 


LEN 


LEN 


LENGTH 


LOADADDOR 


LOOP 


LOOP 


LOOP 


LOOP 


LOOP 


LOOP 


LOOP 


LOW 


MAXDELAY 


МЕМОЯТАЯС 1 


MEMORYARGIPTR 


MEMORYARG3 


MEMORYARG3PTR 


86 643 
BYTE 

255 648 
WORD 


551 554 555 555 


BYTE 
584 599 608 


BYTE PARAMETER AUTOMATIC 
78 Т? 


WORD PARAMETER AUTOMATIC 
7% 78 


LABEL 
425 


LABEL 
563 


LABEL 
211 


LABEL 
875 


LABEL 
460 


LABEL 
497 


LABEL 
609 


BUILTIN 
60 216 217 383 33% 589 


LITERALLY 
200 


BYTE BASED(MEMORYARGIPTR) 
325 383 344 318 319 453 557 500 


POINTER 
11 324 325 333 339 343 344 418 
448 453 557 600 601 


BYTE ВАЗЕЮ ( МЕМОКТАЯСЗРТЯ \ 
418 319 


POINTER 
11 418 419 


РАЈЕ 3) 


691 
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11 


11 


11 


11 


11 


11 


11 


501 


639 


11 


11 


11 


11 


11 


169 


COMPILER 


0000H 


0022H 


0000H 


0026H 


0000H 


ООФАН 


0000H 


0073H 


ООАВН 


0016H 


0014Н 


0C31H 


016FH 


00004 


0900Н 


0000Н 


0000Н 


0000H 


0000H 


1 


504 
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MEMORY BRK1 


MEMORYBRKIPTR 


MEMORYCSIP 


MEMORYCSIPPTR 


MEMORYUSERSTACK 


MEMORYUSERSTACKPTR 


MEMORYWORDARG1 


МОПЕЗОВ6 


MONITOR 


MONITORSTACKBASE 


MONITORSTACKPTR 


NEWLINE 


NEXTCOMMAND 


vere 


ОБЕ 


ОБЕ 


OFF 


OFF 


ОЕЕ 


BYTE BASED(MEMORYBRK1PTR) 
292 293 294 666 
POINTER 
11 292 293 294 666 
BYTE BASED(MEMORYCSIPPTR) 
188 
POINTER 
11 188 
WORD BASED(MEMORYUSERSTACKPTR) 
227 230 242 245 
POINTER 
11 227 230 242 245 
WORD BASED(MEMORYARGIPTR) 
324 338 339 448 
BYTE 
503 506 535 


PROCEDURE STACK=0042H 


WORD 
252 


WORD 
251 


LABEL 


459 


LABEL 


268 


WORD 
185 


WORD 
228 


WORD 
668 


WORD 
424 


WORD 


351 
44g 


562 


WORD 
171 


274 638 


274 537 


661 663 578 


МЕМВЕН ( СЗТР ) 
251 301 310 


MEMBER(USERSTACK) 
231 234 239 241 244 245 249 


МЕМВЕВ (ВАК Т) 


МЕМВЕВ ( АКСЗ) 
526 541 544 564 


MEMBER(ARG1) 
352 354 409 421 423 432 438 
451 454 456 457 5 
586 603 


л 
—+ 
с 


MEMBER( ARG) 
178 176 


PAGE 
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280 


272 


134 


478 


463 


168 


65 


274 


14 


236 


43" 
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0000H 


00629 


006BH 


ООБАН 


0056H 


0006H 


00048 


0074H 


0004Н 


0058H 


002ЕН 


ООТЦН 


0030H 


9766H 


JOTEN 


3904Ч 


2 


2 


28 


28 


96 


SDK86 SERIAL MONITOR 


OFF 


OFFSET 


OPER 


OUTPUT 


OUTWORD 


PORT 


PORT 


PTR 


PTR 


RECTYPE 


RECTYPE 


REG 


REGINDEX 


REGORD 


ВЕСЗАУ 


RESTOREEXECUTE 


ASS TIRSEL ЛЕ, 


RESTORE EXECUTECOOE 


WORD MEMBER(VECTOR) 


603 


399 


227 
281 
313 
599 


282 
WORD 
585 586 596 597 
BYTE 
135 157 163 
BUILTIN 
42 196 202 206 489 
620 622 624 626 628 
BUILTIN 
488 
WORD 
180 488 339 
ЧОНО 
465 370 471 
POINTER PARAMETER AUTOMATIC 
169 170 171 175. 175 
POINTER PARAMETER AUTOMATIC 
66 68 69 
BYTE 
587 588 593 595 598 
BYTE PARAMETER AUTOMATIC 
74 79 
ВҮТЕ ARRAY(28) РАТА 
100 108 365 366 398 
WORD 
107 108 145 380 
BYTE ARRAY(11) DATA 
230 242 
WORD ARRAY( 14) 
145 133 184 185 192 
238 239 242 245 254 
302 303 310 31! 312 
404 414 430 511 522 
632 668 570 675 577 
PROCEDURE 5ТАСК:2023Ч 
256 264 39% 313 
BYTE АЗААҮ(22) GATA 
237 
WORD DATA 


230 
262 
353 
591 


234 
301 
392 
531 


ai 
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358 


11 


11 


280 


169 


81 


7 


17 


9715H 


0002H 


0002H 


0092H 


0002H 


0902H 


0002H 


0002H 


93D9H 


9023H 


О2АОН 


81 


14 


19 


50836 SERIAL MONITOR 


SAVE 


SAVE 


SAVEREGISTERS 


SEG 


SHL 


SHR 


ТО 825 1СМНО 


5190825 10ТАОМ 


5108251М00Е 


3128251ЧЕЗЕ7 


SI08251SETTLINGDELAY 


ЗТОВКЕАКМ5 3 


STOCHARRDY 


246 


WORD 


389 392 


WORD 
139 145 149 154 158 


PROCEDURE STACK=9002H 


293 275 
WORD MEMBER(USERSTACK) 
233 238 246 250 272 
WORD MEMBER(CSIP) 

184 262 299 39 571 
WORD МЕМВЕВ( ВНК 1) 

668 
WORD МЕМВЕВ(АВОЗ) 

540 
WORD МЕМВЕН ( УЗСТОВ ) 
281 
МОВО MEMBER(ARG1) 

547 574 594 
WORD MEMBER( ARG) 

170 175 
BUILTIN 

154 217 224 
BUILTIN 

53 82 568 
LITERALLY 

202 206 528 
LITERALLY 

196 
LITERALLY 

626 
„т АД ШҮ 

520 524 

PROCEDURE З5ТАСКа" 392 
621 523 525 Да? 4 17 
BYTE ARRAY(H) DATA 

671 


PROCEDURE BYTE 


ЭЛ АСК ЈЕ. 


59 


РО/М-86 COMPILER 


22 


427 


237 


168 


44 


133 


284 


92 


462 


402 


62 


54 


02838 


ООЧЕН 


ОЧА?Н 


OBE6H 


0926H 


0А06Н 


O5E4H 


ОЗОЕН 


ОЦЕОН 


0892H 


0416Н 


OCA6H 


0855Н 


0377Н 


0330Н 


60 


192 


224 


229 


65 


33 


244 


109 


27 


64 


48 


SDK86 SERIAL MONITOR 


STOCHECKCONTROLCHAR 
STOCMND 


STOCRLF 


STODATAPORT 
STODISPLAY 
STODSRDY 
STOEXAMMEM 
STOEXAMREG 
STIGETADDR 


ЗТОСЕТСНАЯ 


STOGETWORD 


51000 
ЗІОНЕХ 
STOINPUT 
ЗІОМОУЄ 
STOOUTBLANK 


ЗІЗОЧТВТТЕ 


STACK=0006H 


BYTE ARRAY(10) DATA 


26 38 
PROCEDURE 
39 209 
643 644 
PROCEDURE 
257 276 
468 492 
639 
LITERALLY 
23 28 
PROCEDURE 
655 
LITERALLY 
198 
PROCEDURE 
650 
PROCEDURE 
651 
PROCEDURE 
192 289 
PROCEDURE 
119. 123 
174 190 
472 483 
PROCEDURE 
171 175 
515 57” 
PROCEDURE 
652 
PROCEDURE 
149 154 
PROCEDURE 
656 
PROCEDURE 
654 
PROCEDURE 
182 187 
PROCEDURE 
59 50 


5ТАСК:0010Н 
300 353 362 370 397 (417 
530 534 543 549 561 566 


42 47 


ЗТАСК-0022Н 


5ТАСК-0022Н 
STACK=001CH 
ЗТАСК 290 1ЕН 
318 404. 414 430 511 522 
5ТАСК:0010Н 
126 129 131 142 146 155 
288 328 377 386 407 413 
598 $92 507 510 51% 921 
WORD STACK=0014H 
333 389 408 437 455 480 
ЗТАСК =0026Н 
WORD STACK=0004H 
216 217 


ЗТАСК 200 1СН 


5ТАСК:0022Н 


ЗТАСК-0010Н 
189 322 327 364 385 (145 


ЗТАСК =0012Н 
77 79 188 325 453 471 


РАСЕ 


543 
580 


165 
436 
542 


484 


Р,/М«86 


36 


128 


306 


117 


181 


COMPILER 


O2EFH 


03B5H 


OCE6H 


0382H 


0360H 


_ ОЕрВН 


ОбСОН 


0682H 


ОбЕВН 


O4DEH 


0027Н 


ОВЕЕН 


O4B8H 


0625H 


32 


36 


9 7 


259 


43 


то 


29 


23 


39 


38 


9 3 


50К86 SERIAL MONITOR 


STOOUTCHAR 


STOOUTHEADER 
STOOUTPUT 
STOOUTSTRING 


STOOUTWORD 


STOREAD 
STOREADBYTE 
STOREADCHAR 
STOREADWORD 
STORXRDY 
STOSCANBLANK 
STOSIGNON 
STOSINGLESTEP 


STOSTATPORT 


STOTESTWORDMODE 
STOTXRDY 


ЗТОПРОАТЕТР 


560 565 

5ТАСК-0ООСН 
51 63 69 75 118 115 
366 367 382 38% 398 399 
510 611 640 641 662 574 


5ТАСК-0022Н 
555 551 


5ТАСК-0018Н 
STACK=0014H 


5ТАСК:0018Н 

32% 354 369 383 Yay 444 
547 675 677 

5ТАСК-001АН 

BYTE 5ТАСК-201ОН 

5844 587 600 605 


BYTE STACK=900AH 


581 

WORD STACK=9016H 
591 594 
207 


STACK29014H 
272 


ВҮТЕ ARRAY(23) РАТА 


548 557 
PROCEDURE 
49 23 
326 395 
532 568 
PROCEDURE 
539 546 
PROCEDURE 
857 
PROCEDURE 
630 671 
PROCEDURE 
78 133 
540 541 
PROCEDURE 
658 
PROCEDURE 
223 224 
PROCEDURE 
216 217 
PROCEDURE 
585 590 
LITERALLY 
18 45 
PROCEDURE 
359 403 
630 
PROCEDURE 
653 
LITERALLY 
18 цо 
622 624 
PROCEDURE 
317 42g 
LITERALLY 
40 
PROCEDURE 
258 285 


5ТАСК-2026Н 


45 196 198 202 205 207 
626 628 


5ТАСК-0014Н 
464 479 


ЗТАСК-0022Н 
307 


РАСЕ 


136 
493 
675 


479 


520 


Р /М-86 


84 


105 


98 


501 


512 


428 


222 


219 


COMPILER 


0431H 


0047Ч 


0072H 


ООООН 
0077H 
0071Н 
ООбЕН 
ООбЕН 


0060Н 


50К86 SERIAL МОМІТОЯ 


47 510УАШТОНЕХ 


71 SIOVALIDREG 


47 SIOVALIDREGFIRST 


401 STOWRITE 


ЭР 


55 


SSCOMMAND 


STACKBASE 


ЗТАСКРТЯ 


STANDARDLEN 


STARTADDR 


1 STARTREC 


STEPTRAP 


1 STR 


PAGE 
BYTE STACK=0004H 
BYTE 5ТАСК-0008Н 
BYTE STACK=0002H 


STACK 20026H 


393 312 


BYTE BASED( PTR! ARRAY(1) 


PROCEDURE 
151 153 
PROCEDURE 
143 378 
PROCEDURE 
140 378 
PROCEDURE 
659 
LITERALLY 
239 
LITERALLY 
238 631 
LITERALLY 
255 
BUILTIN 
250 252 
BUILTIN 
249 251 
LITERALLY 
551 553 
LITERALLI 
13 11 
BYTE 
520 525 
LITERALLY 
254 263 
68 69 
BYTE 
600 601 
BYTE 
457 458 
BYTE 
376 378 
BYTE 
223. 224 
BYTE 
216 217 


605 


я 


` 


Р /М-86 


134 


MODULE INFORMATION: 


CODE AREA SIZE 
CONSTANT AREA SIZE 
VARIABLE AREA 5125 
MAXIMUM STACK SIZE 
1211 LINES READ 


COMPILER 


006CH 


002AH 


0000H 


0052H 


ООЧЕН 


9004H 


9069H 


1 


TRUE 


USERINITSP 


USERSTACK 


VECTOR 


WORDMODE 


ОЕОВН 
00004 
2078Н 
0082H 


0 PROGRAM ERROR(S) 


END ОР PL/M-35 COMPILATION 


SDK36 SERIAL MONITOR 


40590 
00 
1200 
660 


WORD PARAMETER AUTOMATIC 


BYTE 
138 183 149 
LITERALLY 
20 88 101 
503 520 
LITERALLY 
632 
STRUCTURE AT 
228 231 233 
249 250 271 
STRUCTURE 
281 282 
WORD 
333 338 339 
WORD 
136 158 159 
58 59 60 
ВУТЕ 
323 


118 122 


234 
272 


238 


239 


BASED(INTVECTORPTR) 


343 


161 


336 


344 


359 


446 


241 


458 


244 


469 


PAGE 73 


381 


246 


. 








